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I.  INTRODUCTION  AND  ACKNOWLEDGMENTS 


The  Faculty  Publication  System,  FACPUB,  a  system  to 
computerize  the  faculty  publication  records  of  the  NPS 
faculty,  was  created  in  response  to  several  demands.  The 
Dean  of  Research  recognized  the  need  for  a  compilation  of 
the  publications  and  presentations  of  the  faculty.  The 
Research  Office  periodically  issues  a  report,  " Recent  NPS 
Publications  [1]  covering  the  most  recent  three  years  and  a 
computerized  listing  would  assist  in  its  preparation.  In 
addition  the  NPS  library  is  asked  to  respond  to  requests  for 
lists  of  technical  reports,  books  and  other  publications 
produced  by  NPS  faculty. 

The  system  was  developed  under  the  urging  of  Dean 
W.  M.  Tolies  by  the  author  while  serving  as  the  Assistant 
to  the  Dean  of  Research.  Generous  help  and  most  of  the  APL 
programs  in  the  system  were  provided  in  their  initial  form 
by  Professor  K.  T.  Marshall  who  developed  them  for  use  in 
publishing  the  OR/MS  Index  [2]).  Numerous  changes  have  been 
made  in  these  programs ,  but  the  FACPUB  system  would  never  have 
existed  in  its  current  form  without  them. 

Ms .  Helen  J .  Waldron  and  Ms .  Julie  Diepenbrock  Herrick 
of  the  Cataloging  Division  of  the  NPS  Library  were  involved 
in  initial  system  specifications  and  Ms.  Herrick  has  been 
heavily  involved  in  overseeing  the  actual  data  input  and  in 
suggesting  improvements  in  the  programs  used  for  that  purpose. 
The  burden  of  data  input  has  so  far  fallen  largely  on  Ms .  Rumi 
Esocbido  of  the  Cataloging  Division  although  substantial  help 
was  provided  in  the  early  phase  of  the  project  by  Mrs.  Linda 
Ishii . 

Ms .  Patricia  Meadows  of  the  Operations  Research  Depart¬ 
ment  deserves  recognition  for  having  written  the  programs  LIST, 
BOOK,  GETSORT  and  GETBOOK. 
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II.  SYSTEM  OVERVIEW 


A.  System  Requirements 

The  basic  requirement  for  the  FACPUB  system  was  that 
it  provide  a  convenient  way  of  entering,  sorting,  and  printing 
faculty  publication  records.  More  specifically  the  following 
requirements  were  identified: 

1.  The  input  process  should  be  convenient  for  the  operator 
and  should  not  require  that  the  operator  be  a  skilled 
computer  user. 

2.  The  system  must  be  capable  of  producing  upper  and  lower 
case  output. 

3.  The  system  must  be  capable  of  sorting  records  according  to 
the  following  characteristics: 

a.  academic  department 

b.  publication  type 

c.  faculty  member 

d.  security  classification 

e.  year  of  publication 

f.  alphabetically  by  first  author. 

It  was  never  intended  that  the  system  should  be  an 
on-line  system  for  answering  inquiries  about  specific  author's 
records.  Such  inquiries  will  be  answered  by  reference  to  master 
lists  of  publications  produced  periodically. 


B.  System  Design 

The  FACPUB  system  is  a  terminal  oriented  system  as  far 
as  the  file  construction  is  concerned.  Records  are  entered  by 
a  user  working  interactively  with  APL  programs  operating  under 
CMS .  The  records  are  written  on  private  disk  space  and  periodi¬ 
cally  written  onto  tape  for  back-up  protection  and  as  necessary 
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when  the  available  disk  space  is  filled.  The  records  are 
printed  from  the  tape  using  FORTRAN  programs  operating  under 
OS.  Sorting  can  be  done  conveniently  in  CMS,  but  larger 
files  must  be  sorted  under  OS  and  sorting  program  GETSORT 
was  prepared  for  this  purpose.  It  is  also  envisioned  that 
once  the  files  are  constructed  for  a  given  year  and  written 
on  tape  that  GETSORT  and  the  accompanying  print  program  LIST 
will  be  used  to  sort  and  print  these  files  producing  master 
copies  for  the  library's  use. 

Figure  II. 1  shows  the  system  design. 
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Figure  II. 1 


The  input  data  for  the  FACPUB  system  is  organized  in 
the  library's  records  by  individual  faculty  member.  The  pri¬ 
mary  source  of  this  information  is  through  the  annual  Faculty 
Activity  Reports.  Obtaining  accurate  and  complete  data  in  a 
timely  manner  has  been  a  major  problem  to  the  library.  In 
fact  a  side  effect  of  using  the  FACPUB  system  has  been  to 
identify  a  significant  discrepancy  between  the  records  made 
available  to  the  library  and  those  in  the  academic  departments. 
Previous  issues  of  the  volume  entitled  "Recent  NPS  Publications " 
contain  numerous  entries  not  forwarded  to  the  library  through 
the  Faculty  Activity  Reports.  In  1978  a  change  was  made  in 
the  form  of  these  reports  with  the  intention  of  soliciting 
more  complete  data  for  the  library,  but  it  is  too  early  to  tell 
if  it  has  been  successful. 

Another  problem  in  the  input  data  is  that  multiple 
authors  will  often  report  the  same  publication  differently. 
Perhaps  the  titles  will  vary,  or  the  citations  might  differ,  or 
more  commonly,  the  authors  permute  the  names. 

Since  the  input  data  is  organized  by  individual  faculty, 
duplicate  entries  for  multiple  authors  are  expected.  A  signifi¬ 
cant  manual  effort  would  have  to  be  made  to  avoid  this  dupli¬ 
cation  and  it  was  not  felt  to  be  worthwhile.  Provision  has 
been  made  within  FACPUB  to  identify  primary  and  secondary  list¬ 
ings  (see  Section  III-A3  for  details)  but  for  this  to  be  success¬ 
ful  it  is  necessary  that  duplicate  entries  (for  multiple  authors) 
all  list  the  same  first  author. 

Another  minor  problem  in  the  data  is  that  some  faculty 
members  hold  joint  appointments  between  departments,  and  some 
have  changed  departments.  This  causes  some  ambiguity  with 
respect  to  the  department  code  assigned  to  each  entry,  but 
it  is  still  possible  to  sort  out  any  individual's  publications 
by  his  faculty  ID  number. 


III.  DETAILED  SYSTEM  DESCRIPTION 


A.  Record  Format 

Each  entry  in  the  system  is  stored  in  a  record  800 
characters  long.  The  records  are  written  by  INPUT  which  is 
an  APL  program  operating  under  CMS.  Table  III.l  is  a  descrip¬ 
tion  of  the  contents  of  each  record.  Following  the  table  is  a 
further  description  of  the  contents  of  each  field. 


Field  No. 

Start 

End 

Length 

Contents 

1 

1 

3 

3 

Department  Code 

2 

4 

4 

1 

Publication  Code 

3 

5 

5 

1 

Print  Code 

4 

6 

8 

3 

Faculty  ID  Number 

5 

9 

9 

1 

Security  Classification 

6 

10 

12 

3 

Year  of  Publication 

7 

13 

13 

1 

Number  of  Authors 

8 

14 

43 

30 

Author  Number  1 

9 

44 

73 

30 

Author  Number  2 

10 

74 

103 

30 

Author  Number  3 

11 

104 

133 

30 

Author  Number  4 

12 

134 

163 

30 

Author  Number  5 

13 

164 

193 

30 

Author  Number  6 

14 

194 

223 

30 

Author  Number  7 

15 

224 

253 

30 

Author  Number  8 

16 

254 

493 

240 

Title 

17 

494 

736 

243 

Citation 

18 

737 

800 

64 

Translated  Authors 

TABLE  III.l.  Record  Contents 


1.  Department  code 


Up  to  three  digits  identifying  the  department  code 
associated  with  the  author  for  whom  this  publication  is  being 
entered.  For  faculty  with  joint  appointments  and  faculty  who 
have  changed  departments  this  is  ambiguous,  but  probably  the 
primary  department  or  the  current  department  should  be  entered. 
Field  4  allows  a  sort  by  faculty  member  so  that  all  publica¬ 
tions  of  a  specified  author  can  be  listed. 

2 .  Publication  code 

A  one-character  code  which  identifies  the  type  of  publi¬ 
cation  according  to  the  following  scheme.  The  INPUT  program 
accepts  the  library's  two-  or  three-character  code  (in  upper  case) 
and  translates  it  to  the  single-character  form  for  storage  in 
the  record. 


LIBRARY'S  CODE 

ONE  CHARACTER  CODE 

MEANING 

UNP 

A 

Unpublished 

BK 

B 

Book 

TBK 

C 

Textbook 

PRC 

D 

Contributed  Paper,  not  published 

PRI 

E 

Invited  Paper,  not  published 

SYC 

F 

Contributed  Paper,  published  in 
Proceedings 

SYI 

G 

Invited  Paper,  published  in  Proceedings 

SYE 

H 

Editor  of  Symposium  Proceedings 

LTR 

I 

Letter  to  editor 

TN 

J 

Technical  Note 

PP 

K 

Paper  Published  in  Journal 

PI 

L 

Invited  Paper  in  open  literature 

ABC 

M 

Abstract  of  Contributed  Paper 

ABI 

N 

Abstract  of  Invited  paper 

CHB 

0 

Chapter  of  book 

LIBRARY'S  CODE 

ONE  CHARACTER  CODE 

MEANING 

RPR 

P 

Project  Report 

RPT 

Q 

NPS  Technical  Report 

PAT 

R 

Patent  application  or  award 

REV 

S 

Book  Review 

TR 

T 

Translation 

THE 

U 

Thesis 

MIS 

V 

Miscellaneous,  pamphlets,  etc. 

3.  Print  code 

A  single  digit  used  in  the  printing  programs.  Its  pri¬ 
mary  function  is  to  suppress  the  printing  of  duplicate  entries. 
Recall  that  the  input  is  organized  by  individual  faculty  member 
and  publications  with  multiple  NPS  authors  will  be  entered  more 
than  once.  The  print  code  is  assigned  automatically  by  the 
INPUT  program  and  has  the  following  meaning: 

0  The  faculty  ID  number  entered  in  field  4  cannot  be 
found  in  the  list  of  faculty  ID's.  (The  ID  number 
should  be  checked  or  the  faculty  directory  should  be 
updated  to  include  this  author) . 

1  Primary  listing.  The  faculty  ID  number  of  this  record 
corresponds  to  the  first  author. 

2  The  faculty  ID  number  of  this  record  does  not  correspond 
to  the  first  author  and  the  department  code  for  this 
author  is  not  the  same  as  the  department  code  for  the 
first  author.  (This  is  a  secondary  listing  but  in  a 
different  department  from  the  primary  listing.) 

3  Same  as  2  except  the  primary  listing  has  the  same 
department  code  as  this  record. 
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4  The  first  author  is  not  in  the  faculty  directory  (he 
may  be  outside  NPS,  or  the  faculty  directory  may  be 
incomplete) . 

5  The  department  code  for  the  author  with  this  ID  number 
does  not  correspond  to  the  department  code  in  the  record 
(This  normally  indicates  an  error  since  we  expect  each 
faculty  member's  entries  to  bear  his  own  department  code 
The  error  may  be  in  the  record,  or  the  faculty  member 
may  have  changed  departments  and  the  directory  should 

be  updated.) 


The  logic  for  assigning  print  codes  is  shown  here. 


Print  Code  =*  3 


Because  of  the  difficulty  in  "backdating"  the  directory  for 
past  years,  all  new  entries  dated  1976  or  earlier  will  be 
assigned  print  code  =  1.  Print  codes  0  and  5  should  not  occur. 
If  they  do,  they  should  be  viewed  as  an  indication  that  some¬ 
thing  is  wrong,  probably  with  the  faculty  directory. 

In  a  complete  listing  of  publications  sorted  by  depart¬ 
ment  and  alphabetically  by  author  only  records  containing  a 
print  code  1,  2,  or  4  should  be  printed.  This  will  suppress 
duplicate  entries  in  the  same  department. 


Faculty  ID  number 


A  unique  ID  number  associated  with  the  faculty  member 
for  whom  this  record  is  being  entered.  The  list  of  faculty 
members  and  their  ID  numbers  is  maintained  as  the  faculty 
directory.  For  new  faculty  any  number  may  be  used  providing 
it  does  not  conflict  with  an  existing  faculty  ID  number. 
Section  III.E  contains  a  complete  list  of  faculty  and  ID 
numbers . 
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6 .  Year  of  publication 

This  will  be  the  year  of  publication,  presentation,  sub¬ 
mission,  patent  application,  or  award,  etc.  The  INPUT  program 
will  accept  two  or  four  digits,  i.e.  79  or  1979.  It  will  record 
only  the  79  in  either  case. 

7.  Number  of  authors 

This  field  is  self-explanatory,  maximum  of  eight  authors. 

8.  Author  number  1 

This  field  should  be  typed  as  follows: 

Howard,  G  T 

Do  not  put  punctuation  after  the  initials  and  do  not  put  punctu¬ 
ation  at  the  end.  Do  include  the  comma  after  the  last  name 
followed  by  a  space.  Separate  the  initials  by  a  space.  (These 
are  library  requirements,  the  record  will  accept  any  string  of 
30  characters.) 

9-15.  Authors  2  through  8. 

As  above. 


16.  Title 

Type  with  punctuation  exactly  as  desired.  (The  printing 
programs  will  reformat  the  information  for  outputting.)  Up  to 
240  characters  are  allowed.  The  information  is  accepted  exactly 
as  typed  at  the  terminal.  For  very  short  titles  the  information 
can  be  typed  on  one  line,  but  the  program  expects  two,  so  it  is 


necessary  to  hit  the  carriage  return  a  second  time.  For  very 
long  titles  do  not  hit  the  carriage  return  until  the  remaining 
information  is  less  than  120  characters  in  length.  For  titles 
of  intermediate  length,  say  160  characters,  the  operator  might 
type  50,  or  60,  or  more  characters  (at  least  40  but  fewer  than 
120).  Then  hit  the  carriage  return  and  continue  with  the  re¬ 
maining  information. 


17.  Citation 

Type  as  desired.  The  instructions  given  for  the  title 
field  apply  here  also.  A  special  requirement  exists  in  the  case 
of  a  book  chapter  (CHB)  or  a  symposium  proceedings  (SYC  or  SYI) . 
The  library  requires  that  the  information  be  identified  in  the 
output  as  follows: 


IN: 


To  accomplish  this  the  input  should  include  an  asterisk  just 
before  the  information  which  follows  "IN."  The  word  "IN"  should 
not  be  typed.  The  output  programs  will  recognize  the  asterisk 
and  replace  it  with  IN  in  the  format  shown  above. 


18.  Translated  authors 

This  field  is  of  no  concern  to  the  user  of  the  system. 
The  INPUT  program  does  not  request  information  for  this  field. 
It  is  filled  automatically  by  the  INPUT  program.  It  contains 
a  64  character  translation  of  the  author  fields.  The  author 
fields  are  stripped  of  punctuation  and  rewritten  here  for  later 
use  in  sorting  the  records  alphabetically  by  author. 


B .  File  Description 

The  records  described  in  Section  III-A  are  constructed 
using  INPUT,  CORRECT  and  DISPLAY  programs  described  in  Section 
III-C.  They  are  stored  in  CMS  files  under  user-selected  names. 

The  INPUT  program  asks  "what  file";  and  if  no  file 
with  that  name  exists,  it  is  created.  New  entries  are  written 
into  the  file  in  sequential  order  and  the  INPUT  program  reports 
the  sequence  number  to  the  user  at  the  terminal. 

Each  file  is  closed  by  the  INPUT  program  using  the  CMS 
command  FINIS  after  each  record  is  written.  In  the  event  of 
computer  failure,  user  error,  or  a  communication  problem  only 
the  current  record  will  be  lost. 

The  file  size  is  limited  only  by  the  amount  of  private 
disk  space  available  and  this  can  easily  be  ascertained  by 
issuing  the  CMS  command  s  (for  status) .  Likewise  the  current 
files  residing  on  the  disk  can  be  determined  with  the  CMS 
command  1  (for  list) .  At  any  time  the  user  should  find  there 
all  previously  constructed  files  unless  they  have  been  erased 
or  unless  there  has  been  a  disk  failure.  As  protection  against 
these  possibilities,  the  files  should  occasionally  be  written 
on  a  tape. 

The  files  are  MEMO  files  containing  records  800  charac¬ 
ters  in  length.  The  file  names  can  be  changed  using  the  CMS 
command  ALTER.  They  can  also  be  COMBINED,  SPLIT,  etc.,  but 
the  records  should  be  manipulated  using  only  the  APL  programs 
INPUT,  CORRECT,  and  DISPLAY.  The  user  should  not  attempt  to 
EDIT  the  records. 
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This  section  describes  the  programs  required  to  use  the 
FACPUB  system.  They  are  divided  into  three  main  categories. 

The  program  listings  are  found  in  Section  V  (arranged  in  the 
same  order  as  here) . 

1 .  Programs  Used  at  the  Terminal 
a.  Programs  used  during  file  creation 

INPUT: 

Purpose  —  This  program  works  interactively  with  the  user  to  enter 
new  records  into  the  FACPUB  system. 

Access:  This  is  an  APL  program  in  the  APL  workspace  called  TT. 

The  user  must  be  signed  on  to  CMS  and  must  have  entered  the  APL  system 
by  typing  [apl]  without  the  brackets.  Then  the  user  must  issue  the 
command,  [*load  tt] .  The  above  requirements  are  explained  in  more 
detail  in  the  user's  guide.  Section  VI.  Once  • these  preliminaries 
have  been  completed,  it  is  only  necessary  to  type  [input]. 


Description  —  The  INPUT  program  asks  the  user  for  the  information 
already  described  under  "record  contents ."  The  first  question  asked  is 
"What  file?”,  and  the  user  may  respond  with  any  filename  acceptable 
to  CMS.  It  is  suggested  that  the  file  names  be  selected  to  aid  the  user 
in  recalling  their  contents.  For  example  DEPT5279  might  be  the  file 
for  department  52  for  the  year  1979.  Or  the  user  might  wish  to  have  a 
file  called  ALL 79 ,  or  ADD78.  After  the  user  has  responded  with  a  file 
name,  INPUT  will  ask ^f or  the  department  code  and  will  give  a  message 
which  says  "enter  z  to  stop."  If  the  user  does  not  stop,  INPUT  will 
proceed  with  the  questions  and  when  one  record  is  complete,  it  will 
return  to  ask  for  the  next  department  code.  Each  item  will  be  written 
into  the  file  originally  identified.  To  create  a  new  file,  exit  from 
INPUT  by  typing  z  for  the  department  code  and  then  typing  [input] 
again . 


The  INPUT  program  will  create  a  file  with  the  designated  name 
if  one  does  not  already  exist.  If  it  does  exist,  the  current  record 
will  be  written  in  the  file  following  the  last  record.  A  sequence 
number  (row  number,  record  number)  is  assigned  to  each  entry  as  it  is 
made.  This  number  is  printed  at  the  terminal  for  the  user's  reference . 

It  is  > Jsed  in  the  CORRECT  program  to  locate  this  record  if  corrections 
to  it  are  necessary ,  and  it  is  used  in  the  DISPLAY  program.  (The 
sequence  number  of  each  record  is  also  displayed  when  printing  the 
files  using  the  LIST  program.) 

Occasionally  the  user  will  attempt  to  input  information  before  the 
computer  is  ready  to  accept  it.  If  this  happens  the  message  "interrupt"  will 
appear  and  the  current  record  will  be  lost.  The  user  should  simply  begin 
again  with  that  record. 

It  is  not  necessary  for  the  user  to  SAVE  or  FILE  his  work  (except 
when  working  with  the  faculty  directory)  since  this  is  handled  auto¬ 
matically  by  the  programs.  When  the  user  has  completed  a  session  with 
INPUT  or  CORRECT  or  DISPLAY,  he  may  simply  sign  off  and  his  work  will 
be  retained.  Likewise  in  the  event  of  a  computer  failure  (except  the 
loss  of  the  disk)  all  records  except  the  one  currently  being  input  will 
be  retained. 


CORRECT : 

Purpose  —  To  work  interactively  with  the  user  to  correct  existing 
records . 

Access —  (when  in  the  APL  environment  with  the  workspace  TT  loaded)  , 
type  [ correct ] . 

Description — After  the  user  types  (correct] ,  the  program  will 
ask  "What  file?" .  After  this  question  is  answered,  the  program  will 
ask  "sequence  number."  The  user  should  respond  with  the  sequence  number 
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(row  number,  record  number )  referred  to  in  the  description  of  INPUT. 

Next  he  will  be  asked  "field  number."  The  user  should  respond  with  a 
field  number  between  1  and  17  as  described  in  Section  III-A  (Record 
Formats) .  The  programs  will  cause  the  current  contents  of  that  field 
to  be  displayed  and  will  ask  the  user  to  type  the  desired  new  contents 
or  to  hit  the  return  key  if  the  current  contents  should  be  retziined. 

Then  the  question  "field  number"  will  be  repeated. 

To  exit  from  CORRECT,  respond  with  [0]  (zero)  when  asked  for 
the  field  number.  Then  the  question  "sequence  number"  will  be  repeated. 
The  user  can  enter  a  new  sequence  number  if  he  wishes  to  correct  another 
record  in  the  same  file  or  he  may  enter  [0]  (zero)  to  exit  from  CORRECT. 

A  special  message  will  appear  at  the  terminal  if  the  user  enters 
16  or  17  when  asked  for  the  field  number.  These  fields  are  very  long, 
240  and  243  characters ,  and  it  is  u nwieldly  to  have  to  retype  the  entire 
field  to  correct  a  small  error.  In  retyping,  new  errors  are  likely  to 
be  introduced .  The  special  message  indicates  that  the  user  can  hit  the 
return  key  to  keep  the  current  contents,  can  type  [XXX)  to  erase  the 
entire  field,  or  can  type  three  characters  to  identify  the  location 
of  an  error.  In  the  last  case  the  terminal  will  display  the  field  from 
the  beginning  until  the  three  characters  are  encountered  and  will  ask 
the  user  to  retype  the  remainder  of  the  field. 


DISPLAY: 

Purpose-- to  display  at  the  terminal  the  contents  of  any  record 
(or  records) . 

Access —  (when  in  the  APL  environment  with  the  workspace  TT  loaded)  , 
type  [display]. 

Description — The  program  will  ask  "What  file?".  After  this 
question  is  answered,  the  user  will  be  asked  to  identify  the  sequence 
numberCs;  (row  number (s )  ,  record  nunber(s))  of  the  record(s)  to  be 
displayed .  He  should  respond  with  a  list  of  record  numbers  separated 
by  spaces.  This  will  cause  these  records  to  be  displayed . 
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b.  Programs  used  to  maintain  the  faculty  directory 


ADDFAC : 

Purpose  —  to  add  faculty  with  their  ID  nunher  and  department  code 
to  the  faculty  directory. 

Access  —  (when  in  the  APL  environment  with  the  workspace  TT  loaded) 
type  [addfac] . 

Description — The  ADDFAC  program  is  self-documented ..  It  will 
instruct  the  user  to  make  a  new  entry  into  the  directory  in  the  following 
format: 


[ID  space  space  NAME  space  space  DEPT]  . 

It  will  then  display  the  entry  and  print  a  message  "if  OK  issue  save 
conmand,  if  not  reload  TT." 

The  program  is  modifying  an  APL  variable  AA  which  contains  the 
complete  faculty  directory .  In  order  for  the  change  to  be  effective  at 
the  next  session,  it  must  be  saved.  This  is  done  by  typing  the  symbol 
for  APL  commands  and  the  word  save,  [*  save]  or  [)  save]. 

If  several  incorrect  entries  are  made  before  a  correct  one,  and 
then  the  save  command  is  issued,  the  errors  will  be  saved  too.  To 
prevent  this,  if  an  error  is  made  when  dealing  with  the  directory ,  it 
is  wise  to  reload  TT  by  typing  [*  load  TT]  or  [)  load  TT] . 


FIXFAC : 

Purpose  —  to  make  corrections  to  existing  directory  entries  or 
to  delete  them  entirely. 

Access — (when  in  the  APL  environment  with  the  workspace  TT  loaded) 
type  [ fi xfac] . 
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Description — The  program  is  se If -documented .  It  will  ask 
the  user  to  identify  the  entry  needing  correction  by  typing  the  ID 
number.  This  number  should  be  unique  and  the  program  starts  at  the 
top  of  the  directory  looking  for  it.  The  program  then  asks  if  the 
entry  is  to  be  deleted  or  changed  and  gives  instructions  to  do  it. 
when  completed,  the  program  will  remind  the  user  to  issue  the  save 
loud  tt  command.  ( For  explanation ,  read  the  description  of  ADDFAC.) 

SEE FAC: 

Purpose— to  display  the  faculty  directory. 

Access  —  (when  in  the  APL  environment  with  the  workspace  TT 
loaded),  type  [seefac] . 

Description — The  program  simply  prints  the  APL  variable  AA 
which  contains  the  faculty  directory .  The  number  of  lines  printed 
is  equal  to  the  number  of  entries  in  the  directory . 

Programs  used  to  write  the  files  on  tape 

LIBTAPE : 

Purpose  —  the  files  constructed  by  the  programs  INPUT  and  CORRECT 
are  not  suitable  for  printing  since  they  contain  special  APL  characters 
not  recognizable  by  the  printer.  LIBTAPE  will  translate  these  symbols 
to  the  intended  form  and  will  write  the  files  on  tape. 

Access  —  This  program  is  to  be  used  from  the  terminal  when  a  tape 
is  attached  as  device  181  with  a  ring.  For  example,  suppose  that  a  memo 
file  called  ALL79  is  on  the  P  disk.  The  following  commands  will  write 
this  file  onto  tape  (suppose  the  tape  has  been  positioned)  : 


[filedef  01  dsk  all79  memo] 

($  libtape] 

Output  will  appear  at  the  terminal  indicating  the  number  of  records 
processed. 
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Description — It  is  important  to  understand  that  the  file  just 
written  onto  tape  is  a  derivative  of  the  file  originally  constructed 
by  the  INPUT  and  CORRECT  programs.  It  is  for  printing  only  and  it  can 
not  be  used  as  the  parent  copy  for  permanent  retention.  Corrections 
to  these  records  and  additional  input  must  be  done  in  the  original 
(parent)  file. 

The  file  just  written  onto  tape  is  not  in  TAPE  DUMP  format 
and  the  tape  command  LOAD  will  not  work  on  this  tape.  The  LIBTAPE 
program  writes  an  end  of  file  (eof)  after  each  file.  If  several 
files  are  to  be  written  sequentially  using  LIBTAPE,  the  series 
of  commands  above  is  repeated  with  the  name  of  each  file  substituted 
for  ALL  79. 

The  disk  contains  a  compiled  (TEXT)  version  of  LIBTAPE.  A 
FORTRAN  listing  is  contained  in  this  report. 

I  CHAR:  One  other  program,  ICHAR,  is  called  as  a  subroutine .  A  text 
version  is  on  the  disk. 


APLNAME 

This  APL  program  accepts  user  supplied  input  to  construct  a 
CMS  filename . 

FILES I ZE 

Examines  a  specified  CMS  file  to  determine  the  number  of  records 
it  contains . 

WRITE 

Writes  an  APL  variable  into  a  specified  CMS  file. 

WRITEERROR 

Identifies  errors  occurring  when  executing  the  WRITE  program  and 
returns  a  message  to  the  user. 
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APL  Programs  Called  as  Subroutines  by  the  Programs  in  .. 


* 


Reads  the  content  of  a  CMS  file  and  assigns  it  to  an  APL  variable . 


READERROR 

Returns  a  message  to  the  user  if  an  error  occurs  in  the  READ 
program. 

RINDEX 

Check  the  user  input  "pub  code"  and  finds  the  corresponding  single 
character  code . 

LIT 

Translates  a  numerical  value  to  a  literal. 


NUM 

Translates  a  literal  to  a  numerical  value. 

NAMECHG 

Performs  a  translation  on  the  author  fields  removing  punctuation . 

The  output  is  stored  in  the  record  for  later  used  in  sorting 
alphabetically  by  author. 

BLANK 2 

Examines  a  variable  until  2  consecutive  blanks  are  found,  it  returns 
the  portion  of  the  variable  preceding  the  blanks.  It  is  called  from 
FACULTY. 

TRANS 41AJ 

This  program  is  required  when  using  the  IBM2741  terminal.  It  is 
used  to  translate  the  variable  before  writing  in  the  file.  INPUT,  CORRECT 
and  DISPLAY  must  be  modi  fie  d  for  the  2741  terminal. 


TRANS AJ 41 


Used  before  reading  (see  TRANS41AJ)  . 

PRNTCODE 

Automatically  accesses  the  faculty  directory  and  assigns  the  print 

code . 


3.  FORTRAN  Programs  Running  Under  OS  Used  to  Produce  Final  Output 
LIST 

Purpose — This  is  the  basic  printing  program  for  the  FACPUB  system. 

Jt  is  used  to  provide  a  sequential  listing  of  any  file  after  it  has  been 
processed  by  the  program  LIBTAPE. 

Description  —  The  attached  program  listing  is  set  up  to  print  files 
11,  12,  and  13  on  tape  LIB202 .  The  input  data  cards  specify  the  number 
of  files  to  be  read  and  the  number  of  records  to  print  from  each  of  the 
files.  In  this  case  the  files  contained  5  37  ,  476,  and  614  records  re¬ 
spectively.  The  contents  of  LIB202  is  given  later  in  Figure  14.1. 

The  LIST  program  does  no  sorting  on  the  input  filesi  it  simply 
prints  them  sequentially .  For  reference  a  sequence  number  is  printed 
in  the  left  margin.  This  sequence  numbe-  is  not  part  of  the  record  but 
is  appended  by  the  LIST  program. 

LIST  formats  the  records  as  shown  in  the  following  example: 

200  55  UMP  3  9  0  78 

Marshall,  X  T;  Richards,  P  R 
Joint  ORSA/TIMS  index. 

Operations  Research  Society  and  The  Institute  of 
Management  Science,  1973. 

The  first  line  conteuns  fields  1  through  6.  The  remaining  fields 
are  the  authors,  the  title,  and  the  citation.  Field  18  (translated 
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authors)  is  not  printed.  Notice  that  field  2  has  been  translated  by 
LIST  to  the  three  character  publication  code.  The  record  contains  a 
one-character  version  of  the  publication  code. 

The  details  of  LIST  can  be  obtained  from  the  program  listing,  but 
it  will  not  break  words  in  the  middle  and  it  will  paginate  the  output. 

The  output  is  suitable  for  immediate  reproduction  or  compilation  into 
bound  form  although  the  user  may  wish  to  suppress  printing  of  line  1. 

Recall  from  the  description  of  INPUT  that  in  the  case  of  publication 
codes  CHB,  SYC,  and  SYI ,  an  asterisk  is  to  be  entered  in  the  record  in 
place  of  the  word  "IN.”  In  this  case,  the  LIST  programs  will  output  the 
record  in  the  following  format: 


81  54  SIC  1  176  U  76 


Elster,  R  s 

Summary  of  the 
Marine  Corps 
Requirements 
7,  1978. 

IN  Proc., 
1978/ 


conf  era  nee 

and  Navy  Man  and  Noman-Power: 
ana  Considerations,  Leesburg, 

Washington,  D.  C. ,  Smithsonian 
p.  1 6. 


7a. , 
Inst 


Mar. 


•  9 


When  printing  the  final  copy  use  1010  on  the  job  card  to  specify 
upper  and  lower  case  output.  See  detailed  examples  in  Section  IVB. 

A  modification  of  the  LIST  program  to  cause  it  to  begin  a  new  page 
each  time  a  new  author  ID  is  encountered  is  explained  on  the  listing. 


GETSORT 

Purpose — This  program  is  used  to  extract  selected  files  from  a  master 
tape,  merge  them,  and  sort  the  resulting  file  as  specified. 

Description  —  The  program  listing  shown  selects  files  11,  12,  and  13 
from  tape  LIB202  and  merges  them  into  a  single  file. 
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The  output  from  this  program  is  put  in  file  1  on  tape  LIB999 .  it 
can  he  printed  from  there  using  the  LIST  program  with  the  correct  JCL. 

As  with  the  programs  LIST,  BOOK,  and  GETBOOK,  this  program  operates 
on  files  which  have  been  processed  by  LIBTAPE . 

BOOK 

Purpose — The  BOOK  program  prints  the  publication  entitled  "Recent 
NPS  Publications ."  It  requires  an  input  tape  containing  the  proper 
information  already  sorted.  The  program  GETBOOK  prepares  the  input  tape. 

Description  —  The  listing  shown  assumes  that  the  input  file  is 
available  as  record  1  on  tape  LIB999  . 

The  document  printed  by  the  BOOK  program  is  divided  into  four  main 
categories  each  containing  several  publication  codes  as  shown  below. 

a .  Contributions  to  books 

i)  BK 
ii)  TBK 
Hi)  CHB 
iv)  SYE 

b.  Conference  presentations 

i)  pro 

ii)  PRI 

c .  Journal  publications  and  conference  proceedings 


i) 

PP 

ii) 

PI 

iii) 

SYC 

iv) 

SYI 

V) 

ABC 

vi) 

ABI 
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.  « 


Technical  reports  and  notes 


i)  RPT 
ii)  TN 

Within  these  categories  (a,  b,  c,  d)  the  records  must  be  sorted 
by  deparment  code.  Any  further  sorting  is  optional.  (The  listing 
shown  for  GETBOOK  also  sorts  alphabetically  by  author  and  by  year.) 

The  BOOK  program  prints  the  contents  of  the  specified  file  in 
a  format  suitable  for  immediate  reproduction.  It  begins  a  new  page 
each  time  a  new  department  code  is  encountered  and  it  puts  a  new  page 
header  each  time  a  new  category  of  publication  (as  defined  under  a,  b, 
c,  and  d  above )  occurs.  The  pages  are  labelled  with  the  name  of  the 
department  providing  it  is  one  of  the  academic  departments  52,  53,  54, 

55,  56,  61,  62,  63,  64,  67,  68  or  69.  other  department  codes,  such 
as  012 ,  will  appear  on  separate  pages  with  no  department  heading  printed. 

When  printing  the  final  copy  use  1010  on  the  job  card  to  specify 
upper  and  lower  case  output. 


GETBOOK 

Purpose  —  This  program  will  extract  specified  records  from  the  files 
and  sort  them  in  preparation  for  using  the  BOOK  program. 

Description — The  program  shown  will  examine  records  from  tape  LIB202 
in  files  11,  12  and  13.  It  will  extract  records  and  put  them  in  groups 
as  defined  by  the  data  cards,  m  this  case  there  are  4  groups,  4  types 
of  publications  in  the  first  group,  namely  those  with  publication  codes, 
BK,  TBK,  CHB,  and  SYE .  There  are  6  in  the  next  group,  etc. 

As  each  record  is  read,  the  program  determines  if  it  belongs  in 
group  a,  b,  c,  d  or  none  of  these.  If  none,  the  record  is  bypassed. 
Otherwise  the  publication  code  is  changed  to  A,  B,  C  or  D.  The  records 
are  then  sorted  as  required  by  the  BOOK  program  and  written  on  the  tape 
LIB999  as  file  number  1.  The  contents  of  tape  LIB202  are  not  altered. 
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D.  Special  Variables  Used  in  the  APL  Programs 

This  section  describes  several  special  variables  used 
in  the  APL  programs.  Included  is  a  description  of  the  use 
of  each  variable  and  a  print  out  of  its  value. 


FIM 


This  variable  is 

used  as 

an  index  to 

the 

data 

fields . 

It  shows  the  starting 
and  the  field  length. 

location 

(minus  one) 

for 

each 

field 

0 

223 

3 

253 

u 

493 

5 

8 

9 

12 

13 

43 

73 

103 

133 

163 

193S 

3 

30 

1 

240 

1 

243 

3 

1 

3 

1 

30 

30 

30 

30 

30 

30 

302 

PCM 


This  variable  is  a  list  of  the  APL  characters  corre¬ 
sponding  to  the  three  character  publication  codes. 

■f  T* 
l’ 

~1  ' 

*p  n 
*p  i 

T  tn 

m 

r+e 

Q~p 

—  T 
** 

*1 
am 
on 
n  Ax 
P*P 

p*~ 

*a  ~ 
peu 
~P 
~Ac 
I  if 
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PCV 


This  variable  is  also  used  in  assigning  the  publication 
code.  It  contains  a  list  of  the  APL  characters  corresponding 
to  the  single  character  publication  codes. 

ainl€_VAi° '□  | TO*?pf~+u 


SECV 

The  APL  characters  corresponding  to  the  four  acceptable 
security  codes  are  stored  in  this  variable. 


LCV 

This  variable  holds  the  APL  character  corresponding 
to  the  lower  case  values  for  each  character  of  the  alphabet. 
It  is  used  in  the  function  NAMECHG. 

abcdefghijklwiopqrstuvwxyz 
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ucv 


This  variable  holds  the  upper  case  value  for  each 
character  of  the  alphabet.  It  is  also  used  in  the  function 
NAMECHG. 

a  in  L  e_7  A  i  <»  |  to*  ?p  uw  = +  . 


AA 

This  variable  holds  the  faculty  directory.  See  the  next 
section. 


NFAC 

This  is  the  number  of  entries  in  the  faculty  directory  AA. 
Each  entry  occupies  20  positions  in  AA.  The  variable  NFAC  is 
used  in  the  programs  ADDFAC ,  FIXFAC  and  SEEFAC. 
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E .  Facility  Directory 

The  current  faculty  directory  is  shown  below.  It 
is  stored  as  the  APL  variable  AA.  The  format  is: 

FIDNAME . ADC 

where 

FID  =  faculty  ID 

(3  characters,  right  justified) 

NAME ...  =  name 

(14  characters,  left  justified) 

ADC  =  academic  department  code 

(3  characters,  right  justified). 


The  faculty  ID  and  the  academic  department  code  are  right 
justified  to  match  the  contents  of  fields  4  and  1  in  the  records. 
The  directory  below  has  been  retyped  for  readability 

with  a  different  spacing  than  that  actually  contained  in  the 
variable  AA. 
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FACULTY  DIRECTORY 


137 

Tolies,  W  M 

12 

92  Andrus,  A  F 

55 

15  Barr,  D  R 

55 

135 

Johnson,  J  R 

35 

47  Brown,  G  G 

55 

94  Butterworth,  R 

55 

46 

Barksdale,  G  L 

52 

125  Esary,  J  D 

55 

91 

Bradley,  G  H 

52 

95  Forrest,  R  N 

55 

181 

Burkhead,  F 

52 

96  Gaver,  D  P 

55 

191 

Hamming,  R  W 

52 

97  Hartman,  J  K 

55 

51 

Kodres ,  U  R 

52 

98  Howard,  G  T 

55 

138 

Matula,  D  W 

52 

126  Jacobs,  P  A 

55 

52 

Raetz,  G  M 

52 

1  Larson,  H  J 

55 

48 

Rahe ,  G  A 

52 

2  Lewis,  PAW 

55 

49 

Roland,  R  J 

52 

127  Lindsay,  G  F 

55 

180 

Schell,  R  R 

52 

3  Marshall,  K  T 

55 

50 

Schneidewind, 

52 

4  Milch,  P  R 

55 

5  Neil,  D  E 

55 

53 

Comstock,  C 

53 

6  Parry,  S  H 

55 

54 

Davis ,  D  L 

53 

128  Pilnick,  S  E 

55 

55 

Franke,  R  H 

53 

7  Poock,  G  K 

55 

172 

J  ay achandran , 

53 

8  Raike,  W  M 

55 

132 

Kildall,  G  A 

53 

154  Read,  R  R 

55 

173 

Kovach ,  D 

53 

9  Richards,  F  R 

55 

192 

Marks,  H  B 

53 

10  Shubert,  B  0 

55 

56 

Russak,  I  B 

53 

11  Shudde,  R  H 

55 

57 

Schoenstadt,  A 

53 

12  Sovereign,  M  G 

55 

59 

Trahan,  D  H 

53 

13  Taylor,  J  G 

55 

187 

Wang,  P  C  C 

53 

14  Thomas,  M  U 

55 

58 

Weir,  M  D 

53 

130  Tysver,  J  B 

55 

60 

Wilde,  C  0 

53 

155  Washburn,  A  R 

55 

131  Zehna,  P  W 

55 

20 

Arima,  J  K 

54 

156 

Creighton,  J  W 

54 

193  Burke,  D  P 

56 

21 

Derr,  C  B 

54 

29  Daniel,  D  C 

56 

176 

Elster,  R  S 

54 

2  7  Magnus ,  R  H 

56 

41 

Eoyang,  C  K 

54 

194  Schutz  B  M 

56 

16 

Fremgen ,  J  M 

54 

195  Sherwin,  B  M 

56 

22 

Giaugue,  W  C 

54 

204  Stolfi ,  R  H 

56 

23 

Haga,  W  J 

54 

28  Valenta,  J 

56 

24 

Jones,  C  R 

54 

17 

Judson,  R  R 

54 

203  Buskirk,  F  R 

61 

18 

Kline,  M  R 

54 

164  Cooper,  A  W 

61 

129 

Lanson 

54 

190  Cooper,  J  N 

61 

123 

Liao,  S  S 

54 

99  Coppens,  A  B 

61 

121 

McMasters,  A  W 

54 

107  Crittenden,  E 

61 

122 

Paringer,  L 

54 

100  Fairall,  C  W 

61 

25 

Senger,  J  D 

54 

101  Harrison,  D  E 

61 

26 

Weitzman,  R  A 

54 

165  Kelly,  R  L 

61 

19 

Whipple,  D  R 

54 

136  Kinney,  G  F 

61 

124 

Wright,  C  A 

54 

167  Medwin,  H 

61 
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FACULTY  DIRECTORY  Cont. 


166 

Milne,  E  A 

61 

189 

Blandin,  J  S 

64 

177 

Moose,  P  H 

61 

93 

Blandin,  S  W 

64 

102 

Novarini,  J  C 

61 

142 

Boynton,  R  E 

64 

163 

Pitthan,  R 

61 

161 

Brennan,  J  P 

64 

169 

Reese,  W 

61 

162 

Doran ,  E  J 

64 

103 

Reinhardt,  R  A 

61 

141 

Frederiksen,  P 

64 

170 

Rodeback ,  G  W 

61 

140 

Plotkin,  N 

64 

104 

Sanders,  J  V 

61 

109 

Pluta ,  J  E 

64 

105 

Schacher,  G  E 

61 

110 

Rittenoure,  R 

64 

168 

Schwirzke,  F  R 

61 

183 

Saunders,  R  E 

64 

106 

Wilson,  0  B 

61 

134 

Sohlberg 

64 

184 

Whi tney ,  G  A 

64 

148 

Adler,  R  W 

62 

186 

Young,  R  D 

6  4 

157 

Baycura,  0  M 

62 

36 

Burton ,  R  W 

62 

147 

Chan,  S  G 

62 

111 

Ball,  R  E 

67 

43 

Duffin,  J  H 

62 

150 

Bank 

67 

146 

Gerba,  J  A 

62 

112 

Biblar*,  0 

67 

37 

Hoisington,  D 

62 

151 

Gawain,  T  H 

67 

133 

Holl,  S  T 

62 

152 

Kahr ,  C  H 

67 

38 

Kirk,  D  E 

62 

113 

Layton,  D  M 

67 

44 

Knorr,  J  B 

62 

114 

Lindsey,  G  H 

67 

158 

Myers ,  G  A 

62 

115 

Miller,  J  A 

67 

39 

Ohlson,  J  E 

62 

116 

Netzer,  D  W 

67 

45 

Panholzer,  R 

62 

117 

Platzer,  M  F 

67 

40 

Parker,  S  R 

62 

149 

Schmidt,  L  V 

67 

30 

Powers .  J  P 

62 

118 

Shreeve .  R  P 

67 

48 

Rahe 

62 

119 

Simmons,  J  M 

67 

145 

Rothauge,  C  H 

62 

153 

Zucker,  R  D 

67 

31 

Sackman,  G  L 

62 

32 

Stentz,  D  A 

62 

33 

Strum,  R  D 

62 

42 

Tao ,  T  F 

62 

65 

Andrews ,  R  S 

68 

34 

Thaler,  G  J 

62 

61 

Bourke,  R  H 

68 

35 

Titus,  H  A 

62 

182 

Chace ,  A  B 

68 

159 

Wilcox,  M  L 

62 

66 

Denner,  W  W 

68 

185 

Wozencraft,  J 

62 

67 

Garwood ,  R  W 

68 

62 

Haderlie,  E  C 

68 

73 

Chang  C  P 

63 

68 

Jung  G  H 

68 

74 

Davidson,  K  L 

63 

69 

Leipper,  D  F 

68 

75 

Elsberry,  T  L 

63 

63 

Paquette,  R  G 

68 

76 

Haltiner,  G  J 

63 

70 

Thompson,  W  C 

68 

77 

Haney,  R  L 

63 

71 

Thornton,  E  B 

68 

199 

Lau,  K  M  W 

63 

64 

Traganza,  E  D 

68 

78 

Renard,  R  J 

63 

14  3 

Tucker,  S  P 

68 

179 

Van  Der  Bijl, 

63 

144 

Von  Schwind,  J 

68 

79 

Williams,  R  T 

63 

72 

Wickham,  J  B 

68 

29 


FACULTY  DIRECTORY  Cont. 


160 

Boone,  D  H 

69 

86 

Brock,  J  E 

69 

171 

Can tin,  G 

69 

200 

Cooper,  T  E 

69 

80 

Fuhs,  A  E 

69 

139 

Garrison,  C 

J 

69 

81 

Houlihan..  T 

M 

69 

87 

ICelleher,  M 

D 

69 

88 

tor to,  P  J 

69 

82 

McNelley,  T 

R 

69 

89 

Newton ,  R  E 

69 

201 

Nguyen,  D  H 

69 

83 

Nunn ,  R  H 

69 

84 

Perkins,  A  J 

69 

178 

Salinas,  D 

69 

90 

Sarpkaya,  T 

69 

85 

Vanderplaats 

9 

69 

Faculty  with  joint  appointments 


91  Bradley,  G  H  55 

47  Brown,  G  G  52 

156  Creighton,  J  W  55 

120  Elster,  R  S  55 

50  Schneidewind,  54 

137  Tolies,  W  M  61 

187  Wang  P  C  C  56 


Faculty  with  joint  appoint¬ 
ments  will  be  listed  in  the 
directory  for  each  department,  but 
they  will  have  the  same  ID  number 
for  each  listing  so  that  sorting 
by  faculty  ID  number  will  put 
all  the  citations  for  that  faculty 
member  together. 
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F.  The  Input  Terminal 

If  the  IBM  2741  terminal  is  used  for  the  input  or 
correction  of  records,  a  modification  is  required  in  the  APL 
programs  INPUT,  CORRECT  and  DISPLAY.  It  is  necesary  to  trans¬ 
late  the  record  before  it  is  written  into  the  file  and  to  trans¬ 
late  it  back  whenever  it  is  read  at  the  terminal.  Two  very 
brief  APL  programs  are  available  for  this  purpose.  They  are 

1.  TRANS41AJ,  used  when  writing  from  the  2741. 

2.  TRANSAJ41,  used  when  reading  at  the  2741. 

These  two  programs  must  be  used  if  the  correct  character  set 
is  to  be  obtained. 

Any  ASCII  data  terminal  can  be  used  with  the  programs 
as  described  in  this  report.  If  there  is  any  doubt  a  dummy 
record  containing  all  the  upper  and  lower  case  letters ,  the 
numbers  and  all  special  characters  needed  should  be  input. 

It  should  then  be  written  on  tape  using  the  LIBTAPE  program 
and  printed  using  LIST  to  complete  the  test. 


IV.  DETAILED  OPERATING  INSTRUCTIONS  (USER'S  GUIDE) 


A.  The  Input  Process 
1.  Signing  on  to  CMS 

The  best  source  of  this  information  is  the  NPS  user's 
guide.  The  brief  information  here  is  for  completeness  only. 

a)  Turn  on  the  terminal 

b)  Establish  communication.  If  by  phone,  dial  3025  and  attach 
the  receiver  to  the  acoustic  coupler. 

c)  Type  break  or  attention 

d)  Type  LA1182pYY 
where 

XXXX  =  user  number 
YY  =  terminal  number 
A  =  space 

e)  Type  AAAABBBB 
where 

AAAA  =  project  number  (use  0525) 

BBBB  =  cost  code  (use  1423) 

In  addition  to  its  responses  between  the  above  steps, 
the  terminal  will  end  this  sequence  with  a  message  indicating 
that  CMS  has  been  entered.  To  confirm  this,  a  carriage  return 
cam  be  typed  amd  the  response  should  be  "cms." 

At  this  point  the  s  (status)  and  1  (list)  commands 
can  be  issued  to  see  how  much  disk  space  is  available  and  what 
files  currently  exist.  Other  CMS  commands  can  also  be  executed 
at  this  time.  (Do  not  EDIT  the  fixes.) 


2 .  Entering  APL 


a)  When  in  CMS,  type  apt  then  a  carriage  return.  The  system 
should  respond  with: 

A*P*L\N*P*S 

LIBRARY  DOCUMENTATION  SYSTEM. . . *LOAD . . .  . 

If  any  symbol  other  than  *  appears  before  LOAD,  type  that 
symbol  followed  by  off  oms .  This  should  return  the  user 
to  CMS.  Repeat  Step  2. 

b)  If  APL  has  been  entered  successfully,  the  type  element 
should  move  over  7  spaces  before  coming  to  rest.  To 
confirm  that  the  user  is  in  APL  he  can  hit  a  carriage 
return  and  the  type  element  should  again  move  over  7  spaces. 

c)  Before  the  programs  described  in  this  document  can  be  used, 
the  work  space  called  tt  must  be  loaded.  This  is  done  by 
typing  *  load  tt. 

d)  The  user  can  now  type  INPUT  or  CORRECT  or  DISPLAY  as  desired 
These  program  are  self-explan tory .  After  exiting  from 

any  of  these  programs  (into  APL) ,  the  user  can  re-enter 
any  of  them  by  typing  the  appropriate  program  name. 

e)  After  loading  the  work  space  TT  (step  c)  the  directory 
maintenance  programs  ADDFAC ,  FIXFAC  or  SEEFAC  can  be  used. 
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3.  Signing  Off  or  Returning  to  CMS 

a)  To  sign  off  (from  APL)  type  *  off.  Wait  until  the  terminal 
responds  then  turn  it  off  and  hang  up  the  phone. 

b)  If  the  user  wishes  to  return  to  CMS  (from  APL)  he  should 
type  *  off  cms .  After  the  terminal  responds,  the  user 
may  wish  to  confirm  that  CMS  has  been  entered.  The  CMS 
commands  can  be  issued,  APL  can  be  re-entered,  or  the  user 
can  sign  off  by  typing  op  log. 

c)  One  other  environment  might  be  entered  inadvertently, 
namely  CP.  If  a  carriage  return  produces  the  response 
op,  the  user  should  type  i  oms  to  re-enter  CMS. 
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Once  a  master  tape  (LIBTAPE  version)  of  the  files 
has  been  constructed,  sorting  the  files  and  printing  final 
copies  of  the  output  is  a  fairly  straightforward  process. 

This  section  will  assume  the  existence  of  a  master 
tape  LIB202  whose  contents  are  as  shown  in  Figure  IV. 1. 
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FILE 


Tape  LIB202 


Comments 


f 


1 

2 

3 

4 


5 


6 

7 

8 
9 


10 


11 

12 

13 

14 


LIBTAPE 

EOF 

TT 

EOF 

I  CHAR 
EOF 

I  PACK 
EOF 


SDAPRE76 

EOF 

SDAALL76 

EOF 

SDAALL77 

EOF 

SDAALL78 

EOF 

SDAALL79 

EOF 

SDAPRE76 

EOF 

SDAALL76 

EOF 

SDAALL77 

EOF 

SDAALL78 

EOF 

SDAALL79 

EOF 


\aaa/\/\mAvwvaJ 


» 

o 

o 


w 


3 

w 

M 

50 

*1 

M 

l r< 
W 
cn 


» 

t-3 

> 

to 


►0  50 
H  W 
C  M 

to  o 

cn  z 

O 


-Text  version  of  LIBTAPE  procram 
-End  of  file  mark 

-The  APL  workspace  TT 
-Text  version  of  ICHAR 
-Text  version  of  IPACK 


-All  pre  76  records,  sorted  by 
department  and  alphabetically 
by  first  author  (175  records) 


-All 

76 

records. 

sorted 

(537 

records) 

-All 

77 

records , 

sorted 

(476 

records) 

-All 

78 

records , 

sorted 

(614 

records ) 

-All 

79 

records , 

sorted 

(3  records) 

-These  are  LIBTAPE  versions 
of  the  master  records  ready 
for  sorting  and/or  printing 


Figure  IV. 1 
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1 .  Example  1. 

To  print  (the  LIBTAPE  version  of)  the  files  contained 
on  tape  LIB202,  the  following  steps  are  required. 

a)  Be  sure  that  the  tape  is  available  to  the  computer  center. 
If  it  is  stored  there,  it  is  available.  If  it  is  stored 
in  the  library,  it  can  be  delivered  over  the  counter  in 
the  computer  center. 

b)  Submit  the  LIST  program  through  the  card  reader  in  the 
computer  center. 

i)  The  job  card  should  have  the  following  form 

//EXAMPLE  1  JOB  <  i  1 82 »  0525 »•  1 423 » » 2 0 » » 1 0  i  0  ) » *  HELLO ' » T I ME=4 


0  GOOOOOOOOOOCOOGO  GOG  0  C  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  3  0  0  0  0  0  0  0  0  0  0  C  0  0  0  0  0  0  0  0  0  0  0 

i  !  i  (  j  i  i  i  i  K  ii  till  u  is  u  i;  ii  :i  ;i  ;i  :j  a  :i ::  :t  »  :■  ;i  :i  nans*  is a  :i  a  <■  <i  •)  <s  u  <>  u  <i  ■■  <i  si  si  si  ss  si  ss  si  si  si  si  ss  is  s:  u  u  a  is si  n  'i  a  a  i  >s  >  a  i  n  .1 11 

11  1111  1  1111  11111111  111111111  1  1  1  1  1  1  I  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  M  1  1  1  1  II  1  1  1 


2222222222222  22222  222  2222  222  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2<;i 

.......  ............  ....  ...  ..  .....  ...  ..  ....... 


3033333  333333333333  3333  333 


33  33333  333  33  3333333 


2  2  3  2  2  2  2  2  2  2  2  2 

3  2  o  3  3  3  3  3  3 


44444  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  444444  4  3444  4  44444444 -1  444  4  4  4  4  j 
5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5;'!  ;  t 
0  5  5  0  0  0  6  0  6  6  6  6  6  6  6  5  3  6  6  6  3  5  5  5  5  5  6  G  6  6  5  6  0  6  6  6  6  6  5  6  0  5  6  5  6  6  6  6  6  6  5  6  6  6  V’ 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7 


4444444144 


s  '-4:5  3  0  5555555 

VN  t 


6S65E66353 


77777777777 


883S8S833S3S385  it  S  3883  8888  36  3888 


8  8  3  8  3  8  3  3  8  3  3  8  3  8  8  3  8  3  8  3  5  3  3  3  3  3  8  3  3  3  3  8  3 


9  9  9  0  9  0  9  9  ?  3  9  9  3  3  9  0  9  9  9  3  9  9  9  9  0  0  9  9  9  0  3  0  0  9  9  9  9  3  9  9  9  9  9  9  9  9  9  9  9  9  9  3  9  9  9  3  3  9  3  3  9  3  3  9  9  3  3  9  3  3  9  9  3  3  S  9  9  9  9 
1  1  1  1  s  1  1  1  1  ii  11  i!  is  u  is  1.  11 11 11  :i  n  a  11  a  :s  a  11  n  a  a  a  a  is  »  is  ii  11  a  11  <1  <1  <1  u  11  >s «  11  <1  <1  si  si  s:  si  s<  ss  si  •:  a  si  a  11 11  -i  si  t>  a  si  u  u  i  s  ■«  is  ;  1  1 .1 11 

OOJ-  15  2?* 


The  interpretation  of  this  card  is 
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EXAMPLEl  =  user  selected  name  (title  on  printout) 


JOB  =  identifies  "job"  card 

1182  =  user  number 

0525  =  project  number 

1423  =  mail  code 

20  =  this  calls  for  a  maximum  of  20  thousand  lines 

of  output.  If  this  is  too  small,  the  job 
will  not  finish  printing.  This  estimate  is 
generous  for  this  job. 

1010  =  this  calls  for  overnight  printing  with  the  TN 

chain  (upper  and  lower  case) .  The  job  will 
not  be  available  until  the  next  morning.  The 
job  will  be  available  behind  the  counter 
in  the  computer  center.  This  field  can  be 
deleted  to  get  an  "immediate"  print  out  with 
upper  case  only. 

Hello  =  user  selected  identification.  to  appear  on 
printout. 

Time  4  =  estimate  of  time  required  in  minutes.  Four 

is  a  generous  estimate. 

i)  The  JCL  cards  should  have  the  following  form.  These 

15  cards  will  replace  the  first  9  JCL  cards  shown 
in  the  program  listing. 


FIRST  CARD 

/'GO. FTOoFOO 1  DD  DI i?- OLD? KEEP) > UMIT»3409~1 • DSM=APD« 

//  DCB* < F'ECFM  =F S' » LRECL=S  0 0 « ELKS  I  ZE=o  00*  DEM3*) » 

//  LABEL* <  1 0 « ML  •  j  I M  -  VOL* < *  RET  A  I M  •  SER=L  I  BE  OE  ) 

DD  D I iF- <  OLD* KEEP > * !Jf II T=hFF-FT 0Sr 0 0 1  > DSH-ADD* 
V/  ■DCB=<RECFp1=FBj  LRECL=800j  BLKSIZE=800*  DEN=£> , 

//  •  •  LABEL* <  1 i *  ML?  t  IM>  •  VQL=< .•  RETAIN*  SEP -LIPS 0Z> 

DD  BI  SP= COLD?  KEEP;*  *  UM I T =AFF =FT 08F 0 0 1  *  DSM3hDD< 
//  DCB*  < RECFM=F B *  L?ECL=3 0 0 • BLKSIZE=800« BEM=£> , 

■//  LABEL31*  12* HL»  •  IM> » VQL*< > RETAIN.* SER*LIBE0£> 

DD  DISP3<OLD* KEEP) « UNIT=hFF=FTOSF 001* LSN=ADD? 
//  BCB=<RECFH=FB*LRECL=300, BLKSIZE=800* DEM3£> ? 

//  -LABEL* <1 3* ML » *  I M  >  *  VOL* <  >  RETA I N » SER=L I BE  02  > 

DD  B I SP= <  OLD  ? KEEP >  j UMIT'AFF =FT 03F 00 i *  DSN3 ADD > 
//  DCB*  <RECr N=FB > LRECL =3 0 0 j ELKS I ZE =3 00* DEH*2> j 
./•/  LABEL*  <  1 4 1 NL » » I  N> » VOL* <  -  RETh  I H  *  SER*L  I  Be  02  > 


LAST  CARD 

o  o  o  o  i  o  o  o  o  o  o  3  o  o  a  a  o  o  o  o  o  o  a  o  o  o  o  a  o  a  o  o  a  o  o  o  o  a  o  o  o  a  o  3  o  a  3  o  o  o  o  o  o  o  o  o  a  o  o  o  c  o  s  o  c  o  o  o  so  o  o  a  a  a  a  2  e  c  a 

i  i  l  i  t  i  i  t  i  n  it  u  n  :i  n  n  t>  i  'I  ;i  :i  a  :i a  ;s  a  a  :i  ;i  »  ji  11  n  n  a  a  u  u  a  <■  «i  <1  <i  «  o  «  n  ..  «  st  si  i  a  u  si  si  >i  si  .1  i:  i.  t;  h  :s  a  u  n  u  :  .  i  ■>  .  .  .  :i 

1  111  HI  II  I  1  I  111  11  I  lit  111  111  It  I  1  t  I  I  Ml  11  It  I  11  I  II  I  I  1!  1  I  1  I  II  1  I  I  I  I  I  !  I  II  I  11  !  I  1  II  I  1  I  11 

22222222222222222222222222222222222222222222222222227222222  2^Pp  %\  2  2  2  2  2  2  :  2  2  2  :2 

2  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  J  3  3  J  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  J  3  3  3  J  3  3  2/y '■  .  A,>v  l3  3  3  :  3  3  3  3  3  3 
4  4  4  4  i  4  4  4  4  4  4  44  *  4  44  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  14  4  4  4  4  -I  \  \\l\  i  4  14:144*  4  4 


4  4  4  4  4  4  4  4  4  4  1  4  4  4  4  4  4  \  l  4  1  4  4  4  4  4  1  4  4 

5555555555555552  ijjj  |  {  -3  5  5  5  3  5  5  3  5  5 

; 1  J  /•  .  I  A  * 


5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  2  \.‘J  i  !-■ (  *i  5  5  2  3  3  5  3  5  5 

!'ri  ■'*’  !  \\  V<*i 

5  C  5  5  S  5  C  6  4  G  6  6  5  5  S  S  S  5  G  S  5  S  5  S  5  5  3  5  6  G  5  C  C  5  6  S  C  G  5  5  5  6  G  5  5  £  3  0  5  5  3  G  C  C  5  5  6  3  \  1  *'  7i  #  S  0  S  8  3  5  i  6 

y/ 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  /  7  7  7  7  7  7  7  7  7  /v  ,>-  7  7  7  7  7  7  7  7  7  7  7 


1  8  i  I  i  3  3  8  !  J  3  8  3  3  S  t  i  i  3  8  3  J  »  !  !  i J !  8  8  8  8  8  8  3  S  3  J  S  3  J  S i i 3 i 3  8  J  8  8  £  3  8  3  8  3  3  8  3  8  S  S  3  8  S  J  S  8  8  8  3  S  8  3  8  3  S  ■  3 

9  3  9  9  9  9  9  9  9  3  9  J  3  9  9  9  9  9  9  9  3  3  3  9  9  9  9  3  3  3  9  9  9  3  9  3  9  9  9  9  9  9  9  9  3  3  9  2  9  9  9  i  G  3  9  3  9  3  9  9  S  9  9  S  3  9  9  D  3  9  3  3  3  5  9  3  3  3  9  3 

1  1  j  •  s  1  1  1  1  n  11  1!  11 11 1>  11 11 11 11 11  ;i  1 11  ji  :i  ;•  n  11  n  11  ji  u  u  si  u  u  ji  .1 11  <1 11  u  n  «  <1  u  11 11  u  1 11  v  >1  v  11  u  11  si  si  si  u  u  :i  is  u  11  u  11  •  .1  m  is  ii  is  <1  tin 

pot  -  Ittt* 


lS^r 
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iii)  The  data  cards  should  be 


FIRST  CARD 
5 

175  537  476  614 


LAST  CARD 

00006000000030000000000000000000000000000003000000000000003000000000003000900030 

i  2  i  4  s  »  i  i  i  ii  ii  i2  ii  M  is  ii  ii  ii  11  :i  :i  h  n  :i  n  n  :r  :i  ;i  a  n  12  u  :«  a  n  u  a  21  «i  «i  «i  «i  u  is n <»  u  is  a  ii  u  si  si  a  si  57  a  *i  u  11  w  u  u  a  a  v  a  a  a  a  n  11  n  a  n  n  a  11  u 

1  1  1  1  1  11  1  I  11  1  111  1  I  1  1  1  11  1  11  11  11  I  1  1  11  1  1  1  11  1  111  1  11  I  1  1  1  1  11  1  11  1  1  1  I  1  1  1  1  11  1  I  1  1  11  11  11  11  11 

2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2 

333333330333333333333333333333333333333333333333333333333  3  1 1  3  3  3  3  3  3  3  3 

4444444444444444444444444414444444444444444444444444444444 

5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  ■>  5  5  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  sQj 

6  6  6  5  6  5  5  6  S  3  6  S  S  6  6  B  S  E  5  6  6  S  6  S  5  6  6  8  S  8  S  5  5  5  5  6  6  6  S  6  6  $  5  6  6  8  6  8  6  6  6  6  6  6  6  G  3 
77777777777777777777777777777777777777777777777777777777777 


4444444444 
!A 

l  (J5  555555555 

*»  I 

O  '-v’i  6  6  5  6  6  o  3  S  6 

^/4V 

5^  77777777777 


8 8  II 18 !  8  8  8  3  8  3  3  8  3  3  3  8  3  3  8  3  3  8  3  18  8  8  3  8  8  3  8  8  i  8  8 8 8  8  8  8  8  !  8  !  till  8  8  8  lil  3  8  8  8  8  « 8 8 8  8  3  3  S 8  3 S 8 3  8  J 3 S 


9  9  $  9  9  9  9  9  ?  9  9  3  9  9  3  3  3  9  9  3  9  9  9  9  9  9  3  9  9  3  9  9  9  9  9  9  9  9  9  9  9  3  9  3  9  9  3  9  9  3  9  9  9  9  9  9  9  9  9  3  9  3  9  3  9  9  9  3  3  3  9  3  9  9  9  9  9  9  3  3 

i  2  i  «  s  i  t  i  i  ii  ii  it  :i  ii  is  ii  mi  :s  a  u  u  22  u  :s  :i  if  n  a  a  ii  22  a  24  ts  21 2J  a  21  n  «i  «  <1  <4  is  a  4/  a  is  a  si  w  sj  y  ss  x  11  a  si  m  ii  12  r3  u  is  a  im  u  a  j>  72  a  :s  a  11  1 71  h 

DOS- 1329* 


These  will  replace  the  two  data  cards  shown  in 
the  program  listing  for  LIST. 

The  final  /*  card  (orange  card)  is  not  shown 
on  the  listing.  It  should  be  added  before  sub¬ 
mitting  the  job. 

The  job  setup  just  described  will  produce  a  printout  of 
the  files  10  through  14  from  tape  LIB202 .  The  records  in  each 
file  will  be  numbered  sequentially. 

The  tape  LIB202  will  not  be  changed. 
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2.  Example  2 

This  example  assumes  that  the  user  v/ants  to  select  files 
11  (SDAALL76) ,  12  (SDAALL77)  and  13  (SDAALL78)  from  tape  LIB202, 
merge  them,  sort  them  according  to  department  code,  then  publi¬ 
cation  code,  then  year  and  print  the  results  in  a  single  sequential 
listing. 

The  following  steps  are  required: 

a)  Be  sure  tape  LIB202  is  available  to  the  computer  center 
(see  Example  1)  . 

b)  Select  a  "scratch  tape"  and  make  it  available  to  the  computer 
center.  This  example  assumes  tape  LIB999  is  used. 

c)  Two  jobs  will  have  to  be  submitted,  separated  in  time.  The 
first  job  using  GETSORT  will  prepare  the  information  on 
tape  LIB999 .  When  this  is  completed  (it  should  take  any¬ 
where  from  a  few  minutes  to  an  hour  or  two  depending  on  how 
busy  the  computer  center  is),  the  second  job  using  LIST 
should  be  submitted. 

1 .  USING  GETSORT  (refer  to  listing) 
i)  Job  card 

//EXAMPLES  JOB  < i  1S£>  0525» 1423>> • HELLO’ . TIME=4 


0  G 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0  000  00000  0000000  0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

i  i  ]  4  s  i  i  !  i  it  »i  :?  ?! !« :}  ;«  i?  i«  u  r:  ;i  n  73  :i  n  :t  :r  ;i  :i  11 3:  a  31 :« 33  .1  i»  i»  ji  <e  <i «?  0  o  a  <s  n  <t  <i  :•  si  u  33  u  u  3:  :i  si  u  .1 »?  33  u  :.s  cs  37  »i  a  :  •  .  -3  «  s  •*  •:  1  .*  :» 

11  1  1  1  1  1  1  1111  11111111  1  1  1  1  11  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  11  1  1  1  1  1  1  1  1  1  1  1  1  1  Ml  1  1  1  1  1  1 

222  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2,#'^^  2  2  2  2  2  2  2  2  2  2  2  2 


3333333  333333333333  3333  333  3  333  33  3333333333333333 

4  4  4  4  4  4  1  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  1  4  4  4  1  1  4  4 


J  3  3  3 

’  3  4  4  4  4  4  1  4 4 4 

5  5  5  5  5  5  3  3  5  5  5  5  5  5  5  3  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  3  5  5  5  5  5  i|)j  *  l)j  ,  3  5  5  5  5  5  5  5 

Vj  '  ■  ’  1  \\  •  ", 

63 SG 6 6666564  6  6  S  3  6  3  6  3  6  6  6  6  3  3  3  5  G  6  3  6  5  6  6  5  566351  5  5  8  5  6  6  3  5  3  5  6  5  6-/,  1  /-  5  3  6  6  8  6  £  5 5 6 

V*  cy 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  i  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  >  <  /  7  7  7  7  7  7  7  7  7  7 

8  3  3  3  •  8  3  8  8  8  3  8  3  8  8  8  8  3  8  8  8  3  2  8  8  8  8  3  3  8  8  6  8  1  8  8  3  8  8  8  3  5  S  8  8  8  8  5  3  8  8  8  8  3  8  S  3  3  8  8  S  6  3  3  3  3  S  S  3 

93939393939199939999999999339399999)39399  3  £  9  9  9  9  9  9  9  9  3  3  3  9  9  9  9  3  3  9  3  3  3  9  9  9  3  3  9  3  0  3  9  3  1  9  9  9 

I  1  )  i  »  •  i  l  I  •:  »i  J  n  i)  i*  w  il  >1  :i  .i  •*!  .1 .1  .i  J  7i  :i  t  ;<  ji  n  ;i  ;»  4  t,  j«  it  «i  «i  u  o  <»  15  <t  4 1 11  <«  it  31  *1  )l  i«  3)  il ::  1  >1  it  11  %i  *’  :<  u  <•  12  t«  m  j  ■  ?  .  <«  :  1  ■»  ??  8 19 
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at?  rxsi  is  s*>t 


r 


1 


See  example  1  for  interpretation.  No  lengthy 
output  is  required,  no  printing  is  needed,  thus 
the  20  and  the  1010  have  been  deleted  from  the 
job  card. 

ii)  JCL 

The  JCL  cards  shown  on  the  GETSORT  listing 
already  point  to  files  11,  12,  and  13  (cards  24 
through  32)  on  tape  LIB202.  These  JCL  cards  are 
in  groups  of  3  and  other  groups  can  be  added  or 
some  of  these  can  be  removed  to  point  to  a  differ¬ 
ent  file. 

The  third  card  from  the  end  in  the  GETSORT 
listing  points  the  output  to  file  1  on  tape 
LIB999.  It  is  correct  for  this  example. 

iii)  Sort  fields 

The  last  card  shown  should  be  changed  for  this 
example  to 


SORT  FIELDS»a»3>BI»A»4»i»-BI>A»-i0»3>BI»A>>SIZE=E3000 


00  00  000000  000 

1  !  1  i  i  I  I  I  t  t ii  it  n  'i  il  ii  i 

1 1 1 1 1 1 1 1 II 11 1 1 1  I 

2  2  222222222  222 3 
30333  3333  33333 
44444444444  4  4  4  4  - 
535555555  5555  53 
0  G  6  6  G  6  C  6  6  6  0  G  6  (■ 
7777777777777777; 
8  3  8  8  3  3  3  8  3  3  8  0  3  I 
9933  999  99999993 

i  :  j  i  >  i  i  i  i  >  ,i  r  i  ii  »  1 1 

OOJ-  U2*t 


0  30  0  0  0  00  0  0  0  00  03  0  0000  03300000000000003000000000 

it  i  :i it  n  :i  it  .1  it  n  n  n  ti  u  it  a  »  x  it  u  it  >t  n  u  o  u  «t  u  n  ■■  it  i  -,t tt  :i  :>  :i  it  n  it  *  :i  •>  it ss  ••  n  it  i:  t  :i  t  it  -i  it  it  n  i  it  it 

inn  in  ini  i  liiiiii  1 1 1 1 1 1 1 1 1 1 1 1 1  m  m  1 1  tn  i  n  1 1 1 1 1  u  1 1 1 1 


2  2  2  2  2  2  2  2  2  2  2  2  0  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2 

3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 


33  3  3  3  33  3  33 

4  4  4  4  4  1  4  4  4  4  4  4  4  4  4  4  4  1  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  , 

;W,  lyS 

5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  0  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5))}  .  J  V  ( ?5  3  5  5  5 


rV  ’  t  ^ 

GGG66G56SSS6GG5653CG5C8G6'D365S  5  5  3  G  G  G  5  5  fv  y  >^0  0  5  95  88 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  )  i  7  7  7  7  7  7  7  7  7  7 


*  4  4  4  4  4  4  4  4 
555555 
6  6  5  6  6 


8  SI  I  8  9  IS  3  8  8  I  8  8  8  1  8  3  8  8  1  3  8  3  J  1 1  3  8  J  8  3  3  8  8  8  8  3  8  -3  3  3  3  8  8  8  3  S  3  3 

3  9  3  5  9  9  9  9  9  9  9  9  9  9  9  9  3  3  3  3  9  9  3  3  3  9  9  9  9  U  1  9  3  9  3  9  9  9  9  3  9  9  9  3  9  3  3  3  9  3  9  11  3  5  3  3  9 

tl  i?  .a  i»  v  ;«  .4  *  .1 .9  51  :i  .*  :>  •*  !i  ..  :i  it  «i  *l  <»  «*  «  o  ti  it  :i  >»  r  •)  \\  a  >  'i  ;i  u  »■  »f  •  i  u  u  w  «i  i\  ;  i  :  u 
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.6  j  .  l.il  i.  i •  * 4  ’  a  -  si jk 


The  final  /*  card  (orange  card)  is  not 
shown  in  the  listing.  It  should  be  put  on  the 
end  of  the  deck  before  submitting. 

The  output  received  from  this  job  will  include  a  brief 
statement  indicating  that  1627  records  were  processed. 


2.  USING  LIST 

i)  Job  card  (see  Example  1) 

10  (thousand)  lines  of  output  should  be  adequate. 
1010  should  be  used  on  the  job  card  to  get  the 
upper  and  lower  case  output 
time  =  4  is  sufficient 

ii)  JCL  (see  Example  1) 

The  input  file  is  now  on  tape  LIB999  in  file 
number  1.  Modify  the  JCL  in  LIST  accordingly. 

iii)  The  data  cards  in  LIST  should  indicate  I  file, 

1627  records. 

The  /*  card  (orange  card)  completes  the  deck. 
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C.  File  Management 


The  FACPUB  system  can  be  viewed  as  having  three  major 
divisions : 

1.  The  input  process  consisting  of  terminal  sessions  using 
the  programs  INPUT,  CORRECT,  DISPLAY. 

2.  The  file  management  process  consisting  of  transferring  the 
disk  files  to  tape. 

3.  The  output  process  consisting  of  using  LIST,  GETSORT  (and 
annually,  GETBOOK  and  BOOK) . 

The  first  and  the  third  of  these  have  been  described  in 
detail  already,  but  nothing  has  been  said  about  the  second.  This 
section  will  deal  exclusively  with  file  management  and  will  pro¬ 
vide  a  complete  plan  for  the  near  term.  The  user  should  attempt 
to  familiarize  himself  with  the  problems  involved  and  not  merely 
follow  thse  suggestions  blindly. 

Several  general  issues  will  be  addressed  before  a  detailed 
discussion  of  "how  to  do  it"  is  undertaken  in  Section  D.  These 
issues  are 

i)  record  keeping  (knowing  what  files  are  available  and 
where  they  are) 

ii)  file  protection  (against  loss) 

iii)  updating  and  correction  of  files 

iv)  recommended  file  storage . 
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i)  Record  Keeping 

Anyone  experienced  with  computer  use  is  aware  of  the 
difficulty  of  keeping  track  of  exactly  what  files  he  has  and  what 
is  in  them# particularly  if  they  are  not  used  frequently. 

In  the  FACPUB  system  the  permanent  records  are  stored  on 
tape  and  often  the  user  will  find  himself  with  several  similar 
versions  of  a  file.  For  example  one  may  be  sorted  one  way, 
another  sorted  another  way.  It  is  imperative  that  accurate  and 
up-to-date  records  be  kept  regarding  the  file  contents  and  loca¬ 
tion.  Each  tape  used  in  the  FACPUB  system  should  be  catalogued 
and  its  "index"  (a  written  record)  updated  everytime  it  is  used. 


ii)  File  Protection 

Considerable  effort  is  involved  in  constructing  and 
correcting  a  large  file  and  care  must  be  taken  to  be  sure  that 
no  files  are  lost. 

Files  on  the  disk  are  subject  to  loss  in  the  event  of 
disk  failure  or  inadvertant  erasure.  It  is  wise  to  provide  back¬ 
up  protection  against  loss  by  occasionally  writing  new  files  on¬ 
to  tape.  This  can  easily  be  overdone,  but  perhaps  each  time 
one  hundred  records  are  entered  they  should  be  backed  up  with 
a  tape  copy.  A  single  scratch  tape  can  be  used  for  this  purpose 
and  overwritten  with  a  new  copy  of  the  files  each  time  it  is 
used. 

Files  which  have  been  corrected  and  stored  on  tape  for 
permanent  retention  should  also  be  duplicated  to  prevent  loss. 
This  duplication  must  be  done  carefully  to  prevent  losing  the 
master  copy  in  the  process.  The  user  should  always  be  in  a 
position  where  his  files  can  be  recovered  if  he  loses  all  copies 
currently  in  use.  That  is, during  a  session  at  the  terminal 
the  user  may  have  a  tape  mounted  which  contains  valuable  files 
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from  which  he  intends  to  make  a  copy.  He  may  also  have  these 
files  on  the  disk,  but  he  should  be  aware  of  the  possibility 
of  losing  both  copies  because  of  equipment  failure  or  user  error. 

Another  caution  which  deserves  emphasis  in  the  FACPUB 
system  is  the  distinction  between  the  master  copies  of  the 
files  and  the  LIBTAPE  copies.  The  master  copy  is  the  one  con¬ 
structed  by  INPUT  and  CORRECT  but  is  not  the  one  used  to  print 
output.  The  LIBTAPE  version  is  used  for  that  purpose.  The 
LIBTAPE  version  can  always  be  reconstructed  from  the  master  but 
not  vice  versa . 


iii)  Updating  and  Correction 

In  the  FACPUB  system  the  decision  has  been  made  to 
store  records  in  files  according  to  the  year  of  publication. 

(See  the  contents  of  tape  LIB202  for  example  in  Section  IVB.) 

It  also  seems  convenient  to  have  these  records  sorted  in  some 
order  and  they  are  arranged  by  Department  Code  and  then 
alphabetically  by  first  author.  These  are  viewed  as  the  master 
files  and  a  print-out  of  the  LIBTAPE  version  should  always  be 
available  in  the  library.  As  errors  are  discovered  in  these 
files  they  should  be  noted  on  the  master  copy.  They  can  all  be 
corrected  in  a  single  session  when  the  decision  is  made  to  do 
so.  The  sequence  number  in  the  master  copy  corresponds  to  the 
number  in  the  file  so  that  the  CORRECT  program  can  access  the 
proper  records.  When  the  user  plans  to  correct  all  errors, 
say  in  the  file  SDAALL77,  he  can  load  the  master  copy  from 
the  tape  back  to  the  disk  and  correct  as  usual.  The  difficulty 
comes  in  rewriting  the  master  copy  back  to  tape.  It  is  not 
safe  to  rewrite  the  file  back  on  the  same  tape  in  the  same  file 
simply  because  the  tape  may  not  be  positioned  precisely  and 
the  following  files  might  be  destroyed.  This  can  be  overcome 
if  the  following  files  are  also  loaded  on  the  disk  and  rewritten 


on  the  tape  following  the  one  corrected.  The  difficulty  is 
that  the  disk  may  not  be  large  enough  to  hold  all  the  required 
files.  If  not,  temporary  disk  space  can  be  used  unless  it  too 
is  inadequate. 

The  procedure  for  adding  records  to  an  existing  file 
on  the  tape  can  be  handled  as  just  described.  The  addition 
would  be  available  on  the  disk  (filed  by  year)  and  would  be 
merged  (using  the  COMBINE  command)  with  the  file  loaded  from 
the  tape.  Then  the  merged  file  would  be  sorted  and  replaced 
onto  the  tape,  again  remembering  that  this  will  potentially 
destroy  the  following  files.  Another  caution  is  that  when 
the  merged  file  is  sorted  a  new  file,  which  also  occupies  disk 
space,  is  created.  Before  sorting  and  after  assuring  that  the 
COMBINE  command  was  executed  properly,  the  user  might  want  to 
erase  the  two  files  previously  combined  into  the  merged  file. 


iv)  Recommended  File  Storage 

As  mentioned  in  the  previous  section  the  decision  has 
been  made  to  store  the  files  by  year  (see  Section  IIIB  for  the 
contents  of  tape  LIB202) . 

It  is  recommended  that  the  same  system  be  continued, 
but  it  is  also  suggested  that  the  number  of  master  files  on  a 
single  tape  not  exceed  3.  The  reason  for  this  comes  from  the 
difficulty  in  manipulating  too  many  records  even  with  temporary 
disk  space.  Currently  the  tape  LIB202  holds  five  master  files 
including  SDAPRE76  and  SDAALL79.  This  is  manageable  for  now 
because  the  pre76  file  is  relatively  small  (because  it  is  in¬ 
complete)  and  the  79  file  has  only  three  records.  As  the 
pre76  file  grows,  it  is  recommended  that  the  structure  be 
changed  to  that  shown  below  in  Figure  IV. 2.  Notice  that  each 
tape  in  this  recommendation  includes  all  programs ,  a  set  of 
master  files,  and  the  corresponding  LIBTAPE  versions. 
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TAPE  1 


ALL  PROGRAMS 

S DAP RE 76  Master  Version 

SDAPRE76  LIBTAPE  Version 


TAPE  2  ALL  PROGRAMS 

SDAALL76 
'  SDAALL77 
SDAALL78 


Master  Version 
Master  Version 
Master  Version 


SDAALL76 
•  SDAALL77 
SDAALL78 


LIBTAPE  Version 
LIBTAPE  Version 
LIBTAPE  Version 


TAPE  3  ALL  PROGRAMS 

SDAALL79 
■  SDAALL  80 
SDAALL  81 


Master  Version 
Master  Version 
Master  Version 


SDAALL  79 
■  SDAALL  80 
SDAALL  81 

TAPE  4  AS  ABOVE 


LIBTAPE  Version 
LIBTAPE  Version 
LIBTAPE  Version 


Figure  IV. 2.  Recommended  Tape  Storage  Structure  for 
FACPUB  System. 
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The  exact  contents  of  each  tape  should  follow  the 
example  of  tape  LIB202  which  includes  EOF  (end  of  file)  marks 
between  each  file.  This  is  repeated  in  Figure  IV. 3. 


PROGRAMS 


Master  Versions 


LIB1APE  Versions 


Figure  IV. 3.  Recommended  Format  of  Master  Tapes 


J 


I  -  i 
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The  reason  for  including  the  programs  on  each  tape  is 
that  if  the  tape  contents  is  loaded  into  temporary  disk  space, 
all  the  programs  are  readily  available  for  use. 

The  reason  for  including  the  LIBTAPE  version  is  simply 
that  it  should  be  stored  somewhere  and  it  can  easily  be  printed 
to  determine  the  exact  contents  of  the  master  file. 

If  the  structure  recommended  above  is  used,  the  process 
of  correcting  and  updating  files  will  be  eased  because  it  should 
always  be  possible  to  accommodate  all  data  from  any  tape  in 
the  20  cylinders  of  temporary  disk  space  available. 

LIST  can  be  used  to  print  the  contents  of  any  LIBTAPE 
file.  The  programs  GETSORT  and  GETBOOK  may  sometimes  have  to 
use  JCL  referring  to  two  different  tapes,  but  the  description 
and  use  of  those  programs  is  unchanged.  The  JCL  must  be  changed 
slightly  when  the  input  comes  from  more  than  one  tape.  Suppose 
that  GETSORT  required  the  use  of  two  tapes,  say  LIB202  and 
LIB203.  Suppose  that  we  want  files  11  and  12  from  LIB202 
and  file  5  from  LIB203.  In  this  case  the  JCL  (see  Listing  of 
GETSORT)  would  be  changed  as  follows: 

LABEL= (12 ,NL , , IN) , VOL=SER=LIB202 
would  replace 

LABEL* ( 1 2 , NL , , IN)  , VOL= ( , RETAIN , SER=LIB 20  2 ) 


and 


LABEL* ( 5 ,NL, ,IN) ,VOL=( , RETAIN , SER=LIB20 3) 
would  replace 

LABEL* (13,NL, ,IN) , VOL* ( . RETAIN, SER=LIB 20 2) . 
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D.  File  Management  Examples 

The  following  topics  are  covered  in  this  section: 


1.  How  to  transfer  a  file  from  disk  to  tape  so  that  a  copy 
can  be  obtained  for  proofreading. 

2.  How  to  make  corrections  to  a  file  not  currently  on  the 
disk  when  the  10  cylinders  normally  available  are  adequate. 

3.  How  to  make  corrections  to  a  file  not  currently  on  the 
disk  when  temporary  space  is  needed. 

4.  Hew  to  construct  a  master  tape  as  described  in  Section  C. 

5.  How  to  add  records  to  an  existing  file  on  tape. 
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1.  Transferring  a  file  to  tape 

Assume  the  file  called  ALL99  is  on  the  disk  and  a 
printout  is  required. 

a.  Select  a  scratch  tape  and  make  it  available  to  the  computer 
center.  This  example  assumes  LIB999  is  the  tape. 

b.  Sign  on  to  CMS. 

c .  Type 

cp  msg  cp  please  attach  tape  LIB999  with  ring  as  181 

Wait  until  the  message  returns  that  device  181  has  been 
attached.  This  may  take  several  minutes  if  the  computer 
center  is  busy. 

d.  Type 

tape  rewind 

e)  Type 

tape  dump  all99  memo  pi 

This  will  dump  the  master  file  onto  the  tape.  It  is  prob¬ 
ably  a  good  idea  to  do  so.  It  will  serve  as  backup  for 
the  disk  file  and  will  correspond  exactly  to  the  LIBTAPE 
version  you  will  be  reading. 

Type 

tape  writeof 

This  will  write  an  EOF  mark  on  the  tape. 
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f )  Type 

filedef  01  dsk  all99  memo 
(wait  for  response,  a  second  or  two) 

Type 

$  lib tape 

The  LIBTAPE  program  will  execute.  The  number  of  records 
processed  will  be  printed  at  the  terminal.  Wait  until 
execution  ends  before  touching  the  keyboard.  This  may  take 
several  minutes  for  a  large  file.  Normally  it  will  take  a 
few  seconds,  maybe  a  minute  for  50  records.  The  LIBTAPE 
program  automatically  writes  EOF. 

g)  Type 

tape  rewind 
Type 

cp  detach  181 
Type 

cp  msg  cp  done  with  tape  LIB999 

h)  Type 

cp  log  (if  you  want  to  sign  off) 

The  desired  file  is  now  file  2  on  tape  LIB999.  It  can 
be  printed  using  LIST  with  the  appropriate  JCL. 
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.  Correcting  a  file  not  currently  on  disk 

Assume  we  want  to  correct  records  in  the  files  currently 
on  tape  LIB202  (see  Section  IVB  for  contents  of  this  tape) . 

We  will  assume  here  that  the  normal  space  assigned  for 
the  FACPUB  system  is  adequate  to  hold  the  necessary  file. 

a)  Sign  on  to  CMS 

b)  Type 

cp  msg  cp  please  attach  tape  LIB202  with  ring  as  181 

Wait  until  the  tape  is  available.  Availability  can  be 
confirmed  by  typing  the  next  command. 

c)  Type 

tape  rewind 

d)  Type 

tape  skip  4 

This  will  skip  the  first  4  files  on  the  tape. 

e )  Type 

tape  load  5 


This  will  load  the  next  5  files  onto  the  disk.  (Actually 
the  10  cylinders  available  are  not  sufficient  to  hold  all 
this.)  The  tape  can  be  rewound  and  detached  and  the  operator 
notified.  This  would  be  the  procedure  if  the  corrections 
are  lengthy.  Alternatively,  the  corrections  can  be  made 
immediately  and  the  corrected  version  put  back  on  the  tape 
In  either  case  we  will  assume  that  the  files  are  now 
corrected  and  properly  sorted. 


f)  Type 


tape  rewind 
tape  skip  4 

g)  tape  dump  SDAPRE76  memo 
tape  writeof 
tape  dump  SDAALL76  memo 
tape  writeof 


At  this  point  the  corrected  master  files  are  rewritten 
on  the  tape. 

h )  Type 

filedef  01  dsk  S DAP RE 7 6  memo 
$  libtape 

(wait  until  execution  ends) 
filedef  01  dsk  SDAALL76  memo 
$  libtape 

(wait  for  completion) 


Repeat  these  steps  for  each  file.  At  that  point  the 
LIBTAPE  versions  are  also  on  the  tape. 

i )  Type 

tape  rewind 
cp  detach  181 

cp  msg  cp  done  with  tape  LIB999. 

j )  Type 

cp  log 
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Since  the  10  cylinders  assigned  to  the  FACPUB 
system  are  not  sufficient  to  hold  all  of  the  LIB202, 
the  above  procedure  will  fail.  However  the  process  of 
loading  selected  files  onto  the  disk  is  still  the  same. 
The  files  can  then  be  corrected  whenever  time  permits 
and  they  can  later  be  rewritten  onto  the  tape  using 
temporary  disk  space  (see  Example  3  which  follows) . 


3.  Correcting  a  file  on  tape  using  temporary  disk  space 

We  will  now  address  the  case  in  which  the  10  cylinders 
available  for  the  FACPUB  system  are  inadequate  to  hold  the 
file  currently  on  tape. 


a)  Sign  on  to  CMS 

b)  Type 

cp  def  t2314  192  20 
format  t  all 
release  191  p 
release  192  t 
login  192  p 
login  192  b 


At  this  point  20  cylinders  of  temporary  space  are 
available  and  they  have  been  redesignated  as  the  d  disk . 

Be  careful  when  typing  the  above  commands  that  you  do  not 
type  "format  p  all"  as  this  will  erase  the  p  disk  if  you 
elect  to  continue.  At  that  point  in  the  sequence  of  commands 
the  p  disk  is  the  10  cylinders  normally  available. 

After  these  commands  are  complete,  the  user  might  wish 
to  type  s  (status)  and  later  1  (list)  to  confirm  his  position. 

c)  Get  tape  LIB202  attached  and  rewound  as  in  previous  examples . 

d)  Type 

tape  load  9 


This  will  load  all  programs  and  master  files  from  the 
tape  onto  the  newly  available  20  cylinders.  Corrections 
must  be  made  and  the  corrections  rewritten  on  tape  before 
signing  off  since  the  20  cylinders  will  be  lost  when  the 
user  signs  off.  The  10  cylinders  (currently  designated 
as  the  b  disk  will  then  revert  to  the  p  disk) . 
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Assuming  all  corrections  are  completed, 

e)  Type 

t  rewind 
t  skip  4 

t  dump  S  DAP  RE  7  6  memo 
t  writeof 

t  dump  SDAALL76  memo 
t  writeof 


f)  Continue  as  in  Step  g,  example  2. 


4.  Constructing  a  master  tape  as  described  in  Section  C. 

Assume  all  the  programs  and  the  relevant  files  are  on 
the  p  disk. 

a)  Sign  on  to  CMS,  get  the  desired  tape  attached  and  rewound 
(see  Examples  1  and  2) . 

b )  Type 

tape  dump  lib tape  text  pi 
tape  writeof 
tape  dump  tt  aplws  pi 
tape  writeof 

. repeat  for  ICHAR,  IPACK)  . 

c)  Continue  as  in  Step  g.  Example  2. 
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5 .  Adding  records  to  an  existing  master  file 

Assume  temporary  disk  space  is  required  as  in  Example  2 , 
and  assume  that  a  new  file  called  ADD78  is  on  the  p-disk  and  must 
be  added  to  the  current  file  SDAALL78  or  LIB202. 

a)  Sign  on  CMS  with  temporary  space  as  in  Example  3. 

■7et  the  tape  loaded  and  rewound. 

b)  Type 

tape  load  9 

This  will  load  the  programs  and  the  files  SDAPRE76,  SDAALL76 , 
SDAALL77,  SDAALL78 ,  and  SDAALL79 . 

c )  Type 

t  rewind 

The  file  ADD78  originally  on  the  p-disk  is  on  the  disk 
now  designated  as  b .  To  get  a  copy  onto  the  p-disk  the  COMBINE 
command  can  be  used.  In  this  example  the  file  will  be  combined 
in  one  step  with  SDAALL78. 

d )  Type 

combine  TOTAL 7 8  memo  pi  SDAALL78  memo  pi  ADD78  memo  bl 

The  file  TOTAL 78  should  include  both  SDAALL78  and 
the  ADD78  files .  Confirm  that  it  is  the  correct  size  by  listing 
the  files  (1  for  list) . 

e )  Type 

erase  SDAALL78  memo 

f )  Type 

sort  TOTAL 78  memo  SDAALL78  memo 
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The  terminal  will  request  that  sort  field  definition  be 
entered.  Assume  we  want  to  sort  by  department  and  alphabetically 
by  first  author. 

g)  Type 

1  3  737  800 

Now  the  file  SDAALL78  memo  should  contain  the  ADD 7 8  file 
sorted  as  described. 

All  that  remains  is  to  rewrite  it  on  tape. 


h)  Type 

tape  skip  7 

tape  dump  SDAALL78  memo 
tape  writeof 
tape  dump  SDAALL78  memo 
tape  writeof 

Continue  as  in  Step  h,  Example  2. 
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E.  Miscellaneous  Commands 


The  instructions  discussed  in  this  section  are  not 
intended  as  a  tutorial.  They  are  recorded  here  for  completeness 
and  should  not  be  attempted  by  the  user  without  knowledge  of 
the  CMS  system  or  without  reference  to  the  CMS  user's  guide. 

1 .  To  attach  a  tape  (with  ring) 

cp  msg  cp  please  attach  tape  . 

with  ring  as  181 

2 .  To  detach  a  tape 

t  rewind 
cp  detach  181 

cp  msg  cp  done  with  tape  . 

3.  To  position  or  scan  the  tape 

t  rewind 

t  skip  n  (if  desired) 
t  scan  n  (if  desired) 
t  rewind  (if  desired) 

4 .  To  dump  a  file  onto  tape 

t  dump  filename  filetype 
t  writeof  (if  desired) 
t  rewind  (if  desired) 

5 .  To  load  the  contents  of  a  tape  onto  the  P  disk 

(  position  the  tape) 
t  load  n 

t  rewind  (if  desired) 
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6.  To  write  a  file  onto  tape  using  LI3TAPE  (this  is  in 
preparation  for  printing) 

(position  the  tape) 

filedef  01  dsk  filename  file type 

$  lib tape 

The  filedef  and  libtape  commands  can  be  repeated  for 
other  files.  Do  not  write  an  end  of  file  since  the  libtape 
program  already  does  this. 

7.  To  sign  on  with  temporary  disk  space 

cp  def  t2  3 1 4  192  20 

format  t  all 
release  191  p 
release  192  t 
login  192  p 
login  191  b 

8.  To  delete  records  from  a  file  (this  will  change  the 
sequence  number  of  all  following  records) 

The  following  example  will  erase  record  number  52 
out  of  the  file  called  ALL79.  It  assumes  there  are  53 
or  more  records  in  the  file. 


split 

all79 

memo 

XXX 

memo 

1  51 

split 

all79 

memo 

XXX 

memo 

53 

erase 

all79 

memo 

alter 

XXX 

memo 

pi 

all79 

memo  pi 

To  transfer  files  to  the  spooled  reader  (or  to  another 
user  number) 

cp  xfer  d  to  nnnnp  (nnnn  =  user  number) 

disk  dump  filename  filetype  filemode 
cp  xfer  d  off 

User  number  nnnn  can  load  the  file  by  issuing  the 
disk  load  command. 

To  combine  or  copy  files 

combine  newfn  newft  newfm  oldfn  oldft  oldfm 

To  sort  files  under  CMS 

sort  oldfn  oldft  newfn  newft 

To  change  a  filename 

alter  oldfn  oldft  oldfm  newfn  newft  newfm  \S 


V.  PROGRAM  LISTINGS 


V  INPUT  iV  iDCiAPLNiSiX  ;J  lAV  ;NV  ;<V A\TV  -,WF 

[1]  y-*-4p  1  » 

[2]  'WHAT  FILE ' 

[3]  VF-fl 

[4]  LRET:'~0  END ,  PUT  L EPT  nODE  2  ' 

[3]  'l EPT  n ODE' 

[6]  '2  '  =  l  +  ,Jf^a)pO 

[7]  /[  i3]~4>3*4>0OX 

[8]  S+-FILESIZE  APLN- APLN  AME  WF ,  »  MEMO' 

[9]  'THIS  ENTRY  WILL  BE  ASSIGNED  SEQUENCE  NUMBER  ' ;S+1 

[10]  L1:'*UB  n ODE' 

[11]  -*(  0**+-(  3t.V^i3)  RINDEX  EQX)oL2 

[12]  ’INCORRECT  INPUT ,  - CHECK  CODE' 

[13]  +L 1 

[14]  L2  :Vl*)~ZCLZiXl 

[15]  y«-12ty 

[16]  L3:'tO  aUTHS ' 

[17]  -*-(0  **«-□)  pO 

[18]  V+V  %LIT  /V/l-*-8  L  X 

[19]  J- 1 

[20]  NV+AV+-  Op*  * 

[21]  £4: ’a UTH  +»  ; j 

[22]  AV-AV ,X- 30tfl 

[23]  NV+NV ,NAMECHG  X 

[24]  -*(NAZJ+-J  +  i)pLB 

[25]  7^7,240 *AV 

[26]  '~LE' 

[27]  ry*-a 

[28]  y-y,  240t2’7,3 

[29]  'nir1 

[30]  ?y«-a 

[31]  y^y,243+ry,a 

[32]  '  _ACUL'VY  TD' 

[33]  y[5  +  i3  ]^3+4>a 

[24]  •  L/irff* 

[35]  y[9*i3]^(2^fl),  •  ' 

[36]  L 5 : T EC  nCCE' 

[37]  •»(  U^lt,a)eS.5GZ)pI.5 

[38]  ' \NCORRECT  n ODE,  oE ENTER ' 

[39]  *L 5 


[40]  L  6  :  y  [  9  ]  •*■! 

[41]  V+V ,  64t:yy 

[42]  PRNTCODE 

[43]  </?♦/)  WRITE  APLN.S+S*  1 

[44]  C\VS  'FINIS  *  *  ’ 

[45]  -►£/?, 

V 
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V  CORRECT  ',X',J  -,V  -,IV  -,N  -,AV  ;Z  -,APuN  -,V  l  ■,?*  -,XX  -.DiWF 

[1]  'WHAT  FILE' 

[2]  N+FILESIZE  APLN-APLN AME$,  '  V EYO' 

[3]  Lli'uHAT  SEQUENCE  JUMPER ' 

[4]  —  (  Q  =  7—0)  pL7 

[5]  -*(.N>y)oL2 

C 6 ]  'incorrect  Sequence  jumber' 

[7]  -LI 

[8]  L2:47-_64t7-8OOt/?-/?£40  APLN,Y 

[9]  AV-AV, 26p'  ' 

[10]  LS  :  IELD  J 0$  +  ' 

[11]  -( 0=AT-0)pL4 

[12]  • nURRENT ' 

[13]  7[jy-,FI*j[liJr]+itFIfl[2;I]  ] 

Cl1*]  -Ue  16  1 7 )  pL2  0 

[15]  LB'.' JEW  +  IF  CURRENT  OK,  JUST  RETURN' 

[16]  -(  '  '=ltZ-t3)pL5 

[17]  -( ~7e  16  1 7 ) pL  8 

[13]  L2a: ' RETURN  TO  KEEP,  OR  TYPE  3  CHARACTERS  WHERE  ERROR  BEGINS,  XXX> 
TO  ERASE' 

[19]  -(  *  '  =  l+Z-lD)  pL5 

[20]  -( 3*  +  /( 'XXX' =  3  +  Z) )pL37 

[21]  'FORMER  CONTENTS  OF  FIELD  ERASED,  TYPE  NEW  CONTENTS' 

[22]  z-a 

[23]  -L8 

[24]  L37:D-“l 

[25]  L23  :Z?-L  +  1 

[26]  -(  3=  +  /(  3fZ)  =  (  3*D  +  VIIV\)  )pL21 

[27]  -(Z7<FIif[2;Ar]-3)pL2  3 

[28]  'CANT  FIND  THESE  CHARACTERS' 

[29]  -L2  0 

[30]  L2  1 :  Z+-D  +  VSIV  ] 

[31]  'CURRENT..  CONTINUE  PROM  HERE' 

[32]  Z  * 

[33]  L2  2  :Z-Z ,0 

[34]  L8  :-U*2)pLli  J? 

[35]  -( 0*.YX-(  31-Z)  RINDEX  ££w)0L!0  «V 

[36]  '  INCORRECT  \NPUT,  nHECK  n ODE'  A 

[37]  -L9 

[38]  L10:7[jn-££Z[*;n 

[39]  — L5 

[40]  ull:-(~*€  1  4 ) pLl 2 

[41]  7[J7]-<|),Pia[2;Ar]+<|>,Z 

[42]  -L5  V 

[43]  L12:-U*6)pL3  ^ 

[44]  VlIV ]  — '  ',“2+Z  # 

[45]  -L  5 

[46]  L3:7[I7]-FI^[2;^]tZ 

[47]  -(-*£  8  9  10)  pL6 

[48]  4V[(  30xX-8)  +  i  30]-.Y4M£CflG  7[J7] 

[49]  L6:-L5 

[50]  L4:(fl-800t(~64*m  ,AV)  WRITE  APLN ,  Y 

[51]  CMS  'FINIS  *  *' 

[52]  -LI 

[53]  L7  :CMS  ' FINIS  *  *' 

7 
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7  DISPLAY  ;/ -,A\N  ;I \X\K\T  ;FN 

[1]  'WHAT  FILE ' 

[2]  FN-i 3 

[3]  'WHAT  SEQUENCE  NUMBERS' 

i  4  ]  V+-B 

[5]  A+APLNAME  FN MEMO ' 

C  6  3  N~oV+,V 

[7]  I«-l 

[8]  LI :  X+-READ  A.VlI} 

C  9 ]  X-736tX 

[10]  //-•-* 

[11]  13t.r 

C  12  ]  X-13+X 

[13]  X- 0 

[14]  L2:X*-K  +  1 

[15]  ■+(  3  0=  +/ (  30p  '  *=r^30t.3f)  )pL3 

[16]  *<-30  +  * 

[17]  T 

[18]  L3  :-*•(«  =  8)  oL4 

[19]  +L 2 

[  2 C  ]  L4  :  6  40  p240  +  l>2  5  3  +  tf 

[21]  X*>240  +  .Y 

[22]  3  60  p 243+* 

[23]  63+180+* 

[24]  -*-(.V>I-I  +  l)pLl 
7 
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V  ADDFAC\R\IN\J 

CiJ  'TYPE  NEW  ENTRY  AS  FOLLOWS'1 

[2]  ’ID  SPACE  SPACE  NAME  SPACE  SPACE  DEPT’ 

[  3  ]  I.V«-3 

[4]  R+BLANK 2  IN 

E  5  ]  Jo-0 

[6]  il:+(3  =  +  /(  (<f>3t<J>tf)=3  +  ^CU*20)-M3])  )p^3 

C7]  <W  + 1 

[8]  -*■(«/” -NF  AC )  pL2 

C9] 

CIO]  L3:’ID  NUMBER  ALREADY  USED ,  B£/T  OK' 

Ell]  20t  ( Jx20)  +<4i4 

E  12  3  £2  :  ,  4>3 

E  13 J  IJM  (pR)+2)+JN 

E14]  AA-AA,  V**Ro-BuANK2  IN 

C  1 5  3  I.V-(  (p/?)  +2)+IN 

E  16  3  AAo-AA,$>3+4>BLANK2  IN 

E  17  ]  NFACo-NFAC+1 

E 18  3  ’YOUR  ENTRY  IS  BELOW’ 

C  19  3  20*  (  20*NFAC-1)+AA 

E20]  ’ISSUE  SAVE  COMMAND  IF  OK,  LOAD  TT  COMMAND  IF  NOT’ 
E  21 3  po 


7  FIXFAC\X\J\Z\IN 

[1]  'EV TER  ID  NUMBER  FOR  ENTRY  YOU  WANT  TO  CORRECT' 

[2]  *-<t>3  +  4>LD 

[3]  J+Q 

[4]  1<l:-*-(3=  +  /(3  +  r  =  3tJ4/iC(Jr«20)  +  i3]))pL3 

[5]  u7  +  1 

[6]  +U=NPAC)pu2 

[7]  +L 1 

[8]  L3: ' ENTRY  IS' 

[9]  20t/l/l[U*20)  +  i  20] 

[10]  'IS  THIS  THE  ENTRY  YOU  WANT  TO  FIX,  YES  OR  NO' 

[11]  -*■(!  =  +  /(  'Y  '  al+CI)  )p£6 

[12]  +n 

[13]  06 : 'TYPE  CORRECT  ENTRY  AS  FOLLOWS,  X  TO  DELETE,  BLANK  TO  KEEP' 

[14]  'ID  SPACE  SPACE  NAME  SPACE  SPACE  DEPT' 

[15]  ■*(.  '  '*lfZH3)p0 

[16]  -#■(  'X'=l+Z)pL* 

[17]  AAUJ*2Q)+i3l*43f$R-9LANK2  Z 

[18]  Z-(  (p/?)+2)*Z 

[19]  AAH  U*20)  +  3)+t  V*]*-Vi  +  R*-BLANK2  Z 

[20]  Z-( (pR) +2)+Z 

[21]  /M[(  (J*2Q)+n)*\3]-43i$BLANK2  Z 

[22]  'ENTRY  NOW  IS' 

[23]  /M[U*2Q)+\20] 

[24]  'ISSUE  SAVE  COMMAND  IF  OK,  LOAD  TT  COMMAND  IF  NOT' 

[25]  -*L  5 

[26]  L2  '.'CANT  FIND  THE  ENTRY  YOU  WANT,  CHECK  DIRECTORY' 

[27]  -*>i/5 

[28]  uMAA+(J*20)*AA.(  U  +  l )  *  2  0 )  *A  A 

[29]  NFAC-NFAC-i 

[30]  'ENTRY  DELETED ,  ISSUE  SAVE  COMMAND  IF  OK' 

[31]  u5  :  -*>p  0 
7 


7  SEEP  AC ,X 

[1]  X+( pAA) *20 

[2]  'THE  NUMBER  OF  ENTRIES  IS 

[3]  X 

[4]  (X, 20)pAA 

[5]  -*>p0 
7 
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FILES  LIOTAPc  FORTRAN  *5 


C 

96 

100 

c 


c 

99 

201 


C 


C 


C 


11 

10 


INTtC-ER*?  1M  HOC  )  /TOG*  24040/ 

INTF  Gfc  R  * 2  ALTH(  6  )  //.  F  1  *0  ,lf  24  0 , ZF  34  0 ,  Zr  '-4  C,  ZF  94  0  ,  ZF640  / 
PIT£GE-**2  Z  I”  / Z  F04  )/ 

N=  60C 

CALL  DSD  SE  T  (  0  1,  ,  1.'!  ) 

CALL  TAP3cT  (2 ,12  ,oJ0 ,1 7,  1 , 800 ) 

CALL  DSD  <E  T  (  G2  »N  , 1  ,.']) 

KO'JNT  1  =  0 
KC  LMC  =  0 

RCAiX  1,  I  C  C  *  c  '10=  9  9  )  I  N 

FT  PM  (4  (200  ‘1)] 

KO IN  71  *HCLNT1  *  l 
CALL  CD-TVRT  (  1*1) 

HCV  v  ANT  ALlThCRC? 

DO'  1  K  =  1  ,t 

IF  (IN (13)  .\E.  AlifH(K))  GO  TO  1 
KK=K 
GO  Tn  2 
CHN'T  iNiJE 

WRITE  (  4  »20J)  KK.KC'JN’I 

FORMAT!  •  RAO  AUTHOR  COUNT:  ',12,'  SKIPPING  RECORD:  ',15) 
GO  T  93 

WRITE  OUT  ORIGINAL  CITATION 
WR  ITF(  12,  ICC)  IN 

KOLNTC  =  KCJNTC+i 

GO  TC  93 


WRITE(6,2uli  KC1JNTI,  KCUNTO 

FORMAT!  '  END  -  REORUS  IN:  '  ,110,’  RECORDS  OUT:  ',110) 

ST  CP 

ENC 

SUBROUTINE  CON  VR  T  (IN) 

IN’1*  E  C  ER  *2  Z(o4)»X(o4)»  IN  (3  CO)  ,Rl ANK /Z 40 40/ 

INTEGERS  CHAR 

DATA  U  15  AsO  ,  Z7F40  ,  Z5640,  Z5040,  Z4D40,  Z5D4 0,7.  40  40, Z  5F4C, 
*Z  4C4C  , L  4C*tO,  Z  43  40 ,2  7640  »Z4*E4 0  »Z60  , 0  ,  ZD4  40 , 24  04  J  , 

*  ZE640 ,  ZC54G,  ZD9  40,  ZF.  r  4  C,  ZE  64  C,  ZE440, 7.C9  40  ,ZJ  64  C, 

*Z4C4C  ,Z4C4  9,Z4040  ,ZD740  ,Z9  C4  0  ,  Z4C4  0,  Z4J40,  Z7  E40  , 

*Z6 140,Z  794 U,ZC 14 u,ZE  240, ZC 440, ZC  740, ZC  3 4 G,ZJ l 40, 

*2034  0, 24  940 ,26  34U  ,*.4  0^0,  2C640,  Z7U40,  Z0640,Z7A40, 

*7.E  94 C  ,Z6  7  4G.ZC  34 C  ,ZE  64  0,  ZC24  0 ,20540 , 76 F40, 74  0  4  0, 

*74040, ZoE  40,  7 40 4o , ' 4 C40, ZD  24 C, Z6C  4 0, Z 4 04 C ,Z404 0/ 

DATA  X/Z  3140,  Z  82  4 C,  Z  834 0,Z  344  0  ,Z3''>40  ,Za  6 40  ,Z 3740 ,  Z3840, 
*Z894C,  Z 4 C *♦  0 ,  740<tG»Z‘tC40»7  404  6»Z404  0*Z40  4C»Z4J4  0, 
*2914C,Z9240 ,Z9340  ,Z9 440 , Z934  0 , Z96 40  ,  Z‘>  740  ,  Z9 64  J , 

*Z  9  94  C ,  Z4C4C,Z404C,Z  4C  40  ,Z  40  s  C  ,  Z4C4  0  ,  Z  4  040 ,  Z4  04  0  , 

*  Z4040  ,  Z  A2-+0  ,  Z  A  0  4  0 , 2  A440,  ZA54J,  ZA64  0,  7;'  740, ZA  3sO, 

*ZA  94  C  ,Z4C4C,Z  404  C  ,Z4C40,Z  VC-,0, 74  04  0 , 24  94  0,ZF)4J  , 

*ZF140,  ZF2sO,  ZF34o,7F44C,7F540,ZFf>4C,7F74C,ZF  34  0, 

*2F94C,  Z4C40,  Z4040  ,Z4  040  ,  Z4  0«t0  ,  Z4040  ,  Z404J,  Z4040/ 


N=80  0 

DC  l  C  L  =  l  ,'! 

C  F  AR  ■=  1C  H  AR  (  IN(L  )  ) 

I F  (  C  H  A  R  .  L  E  .  o  4  )  GC  T  n  LO 
IF  (CHAR. GT. 123)  oC  TC  11 
LL=CH^ 4-os 
IMII^ILL) 

GO  TC  10 

IF  (  CFAR  .I.E  .192)  GO  T'R  10 

LL=CHAR-l92 

ri(L)=X(LL) 

C  )NT  JMJE 
Kfc  URN 
END 


X 


yy^V*' 
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V  FID-APLNAME  A\K\REM 

[1]  ft  REMOVE  EXTRA  BLANKS 

[2]  A-U(Kvl$K-'  '*A)/A-'  ’  .  * 


t 


[3]  ft  FIND  END  OF  FILENAME 

[4]  K-Ui'  ')-il 

[5]  ft  IF  ONE  WORD  -  SYNTAX  ERROR 

[6]  -U  =  pA)  /ER1 

[7]  ft  EXTRACT  FILENAME 
t  8 ]  FID-Bi^tA 

[9]  ft  AND  REMAINDER 

t  io  3  rem-(k-i)+a 

[11]  ft  FIND  END  OF  FI  LETT  PE 

[12]  K-(.  REM  i  '  ')-tl 

[13]  ft  ADD  FILETYPE  TO  FILE 

[14]  FID-FID ,  (.Bf.K  +  REM) 

[15]  ft  EXTRACT  2ND  REMAINDER 

[16]  REM-(K+1)+REM 

[17]  «  CHECK  SPECIAL  MODES 

[18]  -*-(  Wsy'=2t/?E'Ov(A/»*  '=2*REM))/L1 

[19]  ft  MODELETTER- ' ? ’  UNLESS  OTHERWISE 

[20]  FID-FID,  ' ABCTP'i  '  A  BCT  '  ilt/?/?.V] 

[21]  ft  M0DEN0= ' 1 '  UNLESS  OTHERWISE 

[22]  FID-FID,  ’  0234561* ['023456'  iltl  +  /?£tf] 

[23]  -12 

[24]  LI : FID-FID, 2* REM 

[25]  ft  RECTYPE- ’ F '  UNLESS  V  SPECIFIED 

[26]  L2:FID-FID,'  '  ,  '  F  V  '  [  (  '  V  '  ='l  *REM )  + 1 1  ] 

[27]  n  CONVERT  TO  EBCDIC  INTEGER 

[28]  FID-2  OF  FID 

[29]  -0 

[30]  ER1: 1 FILETYPE  MISSING ' 

7 


9  N-FILESIZE  FID 
[1]  N-1021 ' QSIZE  FID ' 

9 
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-S' 


¥  Y  WRITE  FID 
Cl]  1011 'QWRITE  FID  Y' 
[2]  -*•(  0  =  10410  ) /0 

C  3 ]  WRITEERROR  10410 
[4]  * 

¥ 


7  WRITEERROR  EC 

[1]  a  SELECT  MESSAGE  APPROPRIATE  TO  ERROR  CODE 

[2]  -*(ECS  0  1  4  5  7  12  14  15  16)/V0+  012263354 

C  3 ]  a  GIVE  STANDARD  MESSAGE  FOR  OBSCURE  OR  ' IMPOSSIBLE ' 
C 4 ]  -»•(££<■  2  3  6  8  9  1  1  13  17  18  19) /LI 

C  5 ]  -vO.pO’ IIV/ALID  ERROR  CODE ' 

C  6  ]  LI:  'WRITE  ERROR  NO.  ' -.EC -  CONSULT  MANUAL' 

C  7  ]  -o 

C  8  ]  VO  :  -►O ,  pO*-'  WRITE  OK' 

C  9  ]  +0,P  U*-' INVALID  FILENAME ' 

CIO]  +0%pQ*-' INVALID  FILEMODE' 

C  11]  ->0,pD«-,FIL£  IS  READ-ONLY * 

C 12 ]  -*-0,pt>,F-y  ERROR' 

C  1  3 ]  -*>0,pC*-,/?£CG/?D  LENGTH  ERROR' 

C  1 4 ]  -i-O.pO'FILS  IiVCS*  ERROR' 

7 


¥  A«-f?EAD  FID 
Cl]  A«-102I  'QREAD  FID' 
C  2  ]  -*-(0  =  104i0)/0 

C  3 ]  RE ADERROR  10410 

C  4  ]  * 

¥ 


7  RE AD  ERROR  EC 

Cl]  a  SELECT  MESSAGE  APPROPRIATE  TO  ERROR  CODE 
C  2 ]  +(EC=  0  1  12) /  V0  +  012 

C  3  ]  a  GIL'S  SrA//DA/?D  VSSSAGS  FOR  OBSCURE  OR  'IMPOSSIBLE' 
C  4  ]  +  (ECc  23456739  11  13)/I1 

C  5  ]  -*-0,pO^'I.¥7ALID  fffftfG/?  CODE  ' 

C 6 ]  L1:'/?SAD  ERROR  NO.  '-.ECi'  -  CONSULT  MANUAL' 

C  7]  -0 

C  8  ]  ,V0  :-*0  ,  pG*-  *  READ  OK' 

C  9 ]  +0  FILE  NOT  FOUND' 

CIO]  -►O.pO’FILS  INDEX  ERROR ' 

7 


i:”  *** 

/  6  ■  » 
ft* 


-OiLXVl  iSA? 

>,.fO  sv  vi>C 


MESSAGES 


MESSAGES 


>5 .  .V  RUM  OR  LIT* 


7  R-A  RINDEX  M;I  ;J 

Cl]  R-i  <*/0  =*>,*«- a/UC  ;i«/]  =  (r.«W.>l>P4>/0,  iI«-l*oW 
[2]  »  FINDS  INDEX  OF  ALL  ROWS  OF  M  STARTING  WITH  A , 

,  GIVES  0  IF  A  NOT  IN  M 
7 


7  R-LIT  A 

[1]  R-,'  012  34  56789*  [l  +  (  (1  +  L1 )plO)T/1] 

7 


7  UV-NUH  V 

Cl]  NV-10i( 1 0123456739’ i7)-l 
7 


7  R-NAMSCHG  V  ;TV  ;T 
Cl]  TV-V 

C  2 ]  TVl(VeUCV) / \pV 1-LCV ( 1 +pUCV ) *T ) /T-UCV  i  V  ] 

C  3  ] 

7 


7  L-BLANK  2  AT ;,4  iLOOP 
Cl]  L0C?P«-O 
C  2 ]  K-pX 
C  3 ]  L- ltAf 

C4]  £l:+(2*+/(*  '  =/J«-2tA>l 4AT)  )p0 

CS]  LOOP-LOOP* 1 
C  6  ]  2>L,1M 

C  7 ]  -(LOOP=X-l)pO 
C  8 ]  +L1 

7 


7  1/1./  /  ;AT;  y  ;/4  1 ;  /I  2 

Cl]  y41^’>A)  XXV*>[  ]”~<S2>-(  ;  :  » 

C  23  /1 2*’ '  v~z)x(  S<-;C]>:  "  » 

C  3 ]  R—V 

C4]  flCAT/ip,/]*-/12C(A>21*n /X-AUVl 

7 


7  R-TRANSAJ  41  /  ;  AT ;  JT  ;>4  1 ;  4  2 
Cl]  /4 *  *C  ]‘‘“<S2>*v-*-*(  )  ;  ;  » 

C  2  J  At*-'  <s(  a  "  :  2  *  *  ~  >  ? 

C  3 ]  R—V 

C  4  3  RLx  /  xp,v  2-A2L  ( x-is*  x ) /y-auv: 

7 
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7  PRNTCODE \I  D  \AUT  ;,V  -,PC \M\YR ;  DC ;  FIRST  ;  FOUND ;  NA  ;  AUTH ;  <7 
Cl]  FIRST*-Q 

[2]  FOUNDED 

[3]  NA+NUM  1  4  1 24 T/ 

[a]  JP+ 3  +  547 

[5]  AUT*-  14+134/ 

C  6  ]  003  +  7 

[7]  YR*-  2  +  10  +  7 

[8]  +•(  Ui/M  /P)s76)p£4 

[9]  00 

[10]  £3:001 

C  11]  -<•(  3=  +  / (10=3+ (  20*01)444)  )p£2 

[12]  •+(  ,V <NFAC)  Pi/3 

[13]  -+(F0£/A/0  =  l)p£9 

[14]  POO 

[15]  ' I D  NBR  NOT  IN  DIRECTORY.  PRINT  CODE  0  ASSIGNED ' 

[16]  -»>£8 

[17]  £2:+(  3*  +  /0O3+(  1 7+2  0*01 )  444 )  p£l 0 

[18]  •♦(  14=  +  / ( 4^2*  =  AUTH-1M  (  3+2  0*.V -1)444)  )p£4 

[19]  00 

[20]  £11:001 

[21]  -+U  =  iy4  +  l)p£12 

[22]  .  -+(  14  =  +  /(402’tf  =  l4t(  13+30*(Ol)  )47)  )p£13 

[23]  -►ill 

[24]  £12  '.'FACULTY  WITH  THIS  ID  IS  NOT  ONE  OF  THE  AUTHORS  ENTERED 

[25]  POO 

[26]  • PRINT  CODE  0  ASSIGNED ' 

[27]  -+£8 

[28]  £13:00 

[29]  £6:OA/+l 

[30]  -►(  14=  +/(4£T=  14+  (  3+20x01  )444)  )p^5 

[31]  ■+(  .V<:VF4C )  p£6 

[32]  +(FIRST-1 )p£8 

[33]  P04 

[34]  1  FIRST  AUTHOR  NOT  IN  DIRECTORY.  PRINT  CODE  4  ASSIGNED ' 

[35]  -+£8 

[36]  £  1 0 :  -+(  N-NFAC )  p£9 

[37]  FOUND-*-!, 

[38]  -*-£3 

[39]  US -.'DIRECTORY  SHOWS  THIS  AUTHOR  NOT  IN  DEPT  ENTERED ' 

[40]  'PRINT  CODE  5  ASSIGNED ' 

[41]  P05 

[42]  +-£8 

[43]  £4  :P01 

[44]  +£8 

[45]  £5  : FIRST*-! 

[46]  -+(  3  =  +  /  (  3  +  (  17  +  2  0x0 1  )444  )  =Z7<7)  p£7 

[47]  PC*-  2 

[48]  -ia 

[49]  £7  :P03 


[50]  -+£6 

[51]  o8:P01414£jr  1O+P0 

[52]  /[  5]+-PC 


r*‘-  '  *  *" 


r 


7 
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✓  /  EXEC  FORTIG,  REGION.  G0=180K 
//FCRT.SYSIN  DO  * 

C 

C  LIST 
C 

C  THIS  IS  the  BASIC  PPINTING  PROGRAM  for  TM2  =AC°JB  SYStEm 
C  IT  OPERATES  OTJ  FILES  WHICH  HAVE  BEEN  CONSTRUCTED  USING  THE  ApL  PROGRAMS 
C  INPUT  AMD  CORRECT  AND  HAVE  THEN  BEEN  TRANSLATED  USING  THE  Pkqoram  lIRTAPE 

C 

C  THE  PROGRAM  PROVIDES  A  SEQUENTIAL  LISTING  Oc  THE  FILE  CONTENTS 
C  A  SEGUENCE  NUWP?R  IS  ALSO  PRINTED 

C 

C  SETUP.... 

C  JCB  CARD,  DECK,  END 
C  JCL 

C  3  CARDS  SHOWING  A  UNP  3  ft*- . 

C  DATA  CARD  SHOWING  number  OF  FILES.  IS 

C  DATA  CARD  SHOWING  NUMBER  IN  EACH  FILE,  ALL  15 

C  CRANGE  CARC 

C 

C  WITH  A  VERY  MINOR  CHANGE  THIS  PROGRAM  CAN  BE  US=P  ~D 

C  SKIP  TO  A  NEW  PAGE  each  Tine  a  NEW  iUTH-R  IS  c  NCOUNTE°  ED 

C  THIS  IS  EXPLAINED  DM  COMMENT  CAPOS  IN  THr:  LISTING  G E L nW 

C  DO  N0T  DC  THI S  UNLESS  THE  INPUT  TAPE  IS  SORTED  3Y  A'JTHOP  ID 

C  CR  YOU  WILL  GET  A  NEW  PAGE  WHEN  YOU  DC NT  WANT  IT 


DIMENSION  AL  PHA ( 2 , 22 ) 

DIMENSION  AL P  1  ( o ) 

01 MENS  ION  N1  c l 20 ) 

INTEGER  *  2  !  A  LP2  (30,8),  IALP3I240),  I4LRM243) 

INTEGER  *  ?  I °  L( 60 ) 

INTEGER  *  2  IBLK  /'  ’/,  !  SCO  /•;•/,  ISTAR  /•*'/,  INOA  /'IN'/ 

INTEGER  *  2  IWCA 
CATA  B  LK  /  '.  •/ 

AUTH=“LK 
LMX  =  60 

c 


c 

c 

c 

c 


LAU  =  30 

LMT  =  56 

LTI  =  240 

L  MS  =  53 

LSO  =  243 

I  AL  =  22 

L1CR  =  15 

LIME  =  75 

LMAX  =  75 

READ! 5,1)  ALPHA 

1  FORMAT  < 1 0 ( IX ,  Al,  3X ,  A3)) 

1C  --  0 

IA  =  7 

READ! 5, 3)  NCF 
NFC  =99999 
NPF  =  1 

IF  (NOF  .LT.  1)  GO  TO  10 
READ! 5,3)  (NIF(I),  1=1, NOF) 

3  FORMAT-!  te,l  51 

NFC  =  NIFII)  «•  1 
10  CONTINUE 

READ! 8, 4,EN0=80)  ALPl,  NA,  I ALp2  ,  IALP3,  I ALP4 

4  FORMAT ( A3. A1,A1,A3, A1.A3,  II,  240A1.  240AI.  243A1) 

IC  =  1C  +  1 

IF  (1C  . L T  •  NFC)  GO  TO  5 

NPF  =  NP>:  ♦  l 

IF  ( NPC  .C,T.  NCF  )  GO  TO  00 
NFC  =  N1 FINPF I  ♦  l 
IC  *  l 

5  CONTINUE 

TO  GFT  A  NEW  PAGE  FOR  EACH  NEW  AUTHOR  INSERT  CARD  RcLOW 
CC  THIS  ONLY  !<=  T HE  INPUT  IS  SORTEO  BY  author 
THERE  IS  one  CTHEP  CARO  ’’HAT  MUST  RE  INSERTED 
IFIAUTH.  ME.  ALPHA)  )G0  TO  70 
IF  ( { L I NG  +  LICR  )  .GT.  LMAX)  GO  TO  70 

2  CONTINUE 


f 

■i 


a; 


•« 


O  > 


<y 


75 


DO  8  I  =  1 » I  AL 

IF  (ALPK2)  .NE.  ALPHA  (1,1))  GO  TO  8 
ALP1(2)  =  AL  PH  A ( 2  » 1 1 
GO  TO  9 

8  CONTINUE 

9  CONTINUE 

WP  IT6( 6 , 1 1 ) 

LINE  =  LINE  +  2 

11  FORMAT ( / / ) 

WRITE (6 , 12 )  IC,  ALPL 

12  FCRMAT(1X,  14,  4X ,  A3, IX, A3, IX, Al, IX, A3, IX, Al, IX, A3  /) 

LIME  =  LINE  +  2 

IBL  =  1 
LC  =  1 

DO  30  I  =  1 » N  A 

IF  (IBL  .LT.  1)  GO  TO  16 

00  15  IB  =  LC , LMX 

15  I  PL  ( I  3  )  =  IBLK 
IBL  =  0 

16  CONTINUE 

DO  20  II  =  1 , L AU 

IF  < I A  LP2  (  1 1 »  I  )  .EO.  IBLK  .AND.  I  ALP2  (  7  *-l ,  I  )  .EO.  IBLK)  GO  tq  l8 

GO  to  20 
18  CONTINUE 

IALP2( II ,1 )  =  ISCO 

ICH  =11+1 

LCT  =  LC  +  ICH  -  1 

IF  (LOT  ,GT.  LMX)  GO  TO  26 

GO  TO  21 

20  CONTINUE 

21  II  =  0 

DO  24  J  =  LC, LCT 
11=11+1 
IPL(J)  =  T  AL°2 ( 1 1 »  I ) 

24  CONTINUE 

LC  =  LCT  ♦  1 
GO  TO  30 

26  CONTINUE 

WRI TE ( 6 . 27 )  IPL 

27  FORMAT ( 1 5 X  ,  6CA1) 

LINE  =  LINE  +  1 
IBL  =  1 

LC  =  1 
LCT  =  ICH 
GO  TO  21 
20  CONTINUE 

IF  (IBL  .LT.  1)  GO  TO  32 
DO  31  IB  =  LC,  LMX 

31  I  PL ( 1 3 )  =  IBLK 

32  CONTINUc 
IPLILC-2)  =  IBLK 
WRITE! 6,27)  IPL 
LINE  =  LINE  +  1 

I CN  =  0 
II  =  0 
J  =  1 
LC  *  0 
ICH  =  0 
34  CONTINUE 

II  =  II  ♦  1  ./  j 

LC  »  LC  ♦  1  / 

ICH  «  ICH  «■  l 

c  (HLP3(II)  .NE.  IBLK)  GO  TO  36 
*  (LC  .EO.  1)  J  =  J  +  l 

"H  •  0 

t  ( I  ALP  3(  IT  +1  )  .NE.  IBLK)  GO  TO  36 
;  r  <  I  AL  P  3  (  1 1  +2  )  .NE.  IBLK)  GO  TO  36  a*> 

iO  Tf* 


L-T)  go  to  38 
.  *.  LTI)  GO  TO  34 


t 


38  CONTINUE 

1 1  =  I  I  -  ICH 
33  CGNTINUE 

WP I  TE  (  6 , 3  9  )  (IALP3(K)t  K  =  J,II) 

LINE  =  LINE  ♦  1 
IF  (IFN  .GT.  0)  GO  TO  40 
ICH  =  0 
J  =  II  +  1 
LC  =  0 

IF  (II  .LT.  LTI)  GO  t0  34 

39  FCPM  AT ( I 8X  *  57AL) 

40  CONTINUE 
IFN  =  0 
LWS  =  LMS 
11=0 

IS  =  0 
J  =  1 

I WDA  =  INDA 
LC  =  0 
ICH  =  0 

44  CONTINUE 
11=  II  +  1 
LC  =  LC  +  1 
ICH  =  ICH  ♦  1 

IF  ( I ALP  4( IT  I  .NE.  IBLK)  GO  TO  46 
IF  (LC  .GT.  1)  GO  TO  45 
J  =  J  +  1 
LC  =  0 

45  CONTINUE 
ICH  =  0 

IF  (IAL°4( II+l I  .NE.  IBLK)  GO  TO  47 
IF  (IALP4(II+2)  .NE.  ieLK)  GO  TO  47 
IFN  =  L 
GO  TO  48 

46  CONTINUE 

IF  (IALP4(II)  .EQ.  ISTAR)  GO  TO  52 

47  CONTINUE 

IP  (LC  .GT.  LWS)  GO  TO  48 
IF  (II  .LT.  LSC)  GO  TO  44 
IFN  =  I 
GG  TO  50 

48  CONTINUE 

II  =  II  -  ICH 
50  CGNTINUE 

IF  (IS  .GT.  1)  GO  TO  60 
WP.ITP<6,49)  (IAL°4(K),  K=J,II) 

ICH  =  0 
J  =  1 1  ♦  1 
LC  =  0 

LINE  =  LINE  +  1 
IF  (IS  .GT.  0)  GO  TO  54 
IF  (IFN  .GT.  0)  GO  Tp  io 
IF  (II  .LT.  LSO )  GC  TG  44 

49  FORMAT  < 2 IX  t  54A1) 

GO  TO  10 

52  IS  =  1 
ICH  =  0 
II  =  I  I  -  1 

IF  (LC  .GT.  1)  GO  TO  48 
54  IS  =  2 

J  =  J  +  1 
LWS  =  47 
11=11+1 
GO  TO  44 

60  CONTINUE 

WR I TE ( 6  «  6 1 )  I WCA  t  (IALP4(K),  K  =  J ,  I  I ) 

61  FORMAT ( 24  X  .  A 2,  IX,  48A1) 

LINE  =  LINE  ♦  1 

IF  (IFN  .GT.  0)  GO  TO  10 
I WDA  =  IBLK 
ICH  =  0 
J  =  1 1  ♦  1 
LC  =  0 

IF  (II  .LT.  LSO)  GO  TO  44 
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GO  TO  10 

70  C7HT!nuc 
LINE  =  0 

C  G=T  A  NCW  PAGE  eQP  EACH  NEW  AUTHCP  !NSSRt  CARO  RELOW 

C  JC  THli  ONLY  !c  THE  INPUT  IS  SORTED  BY  AUTh'tp 
C  TfEPF  IS  ON E  OTHER  CAP D  THAT  MUST  eE  INSERT=0 
c  AUtH=ALP1(A) 

W° I TE ( fc , 71) 

71  FOPNA-  C  •  1  •  I 
GO  TO  2 

£C  C0NT1NUE 
STCP 


e*;p 

//GO.FTCS'OOL  DO 

//  cce=  (pECf=Fe 

//  LA3E  L=(  11  ,  *>  L 
//  DO 

//  OC  3= ( RECF  N  =  F  B 
//  LABEL=<  12  ,\’L 
II  CO 

II  CC9=(RECFN=F3 
//  Li3FL=< 13, ML 
//GC.SYS  IN  DO  * 


A 

K 

U 


UNP  3 
PP-  L 
THE  V 


BK- 

PI- 

MIS 


01  SP=l ULJ, 
, LFECL= jjj, 
,  ,  INI  ,  VCL=t 
D ISP=<  OLD, 
,  LP  ECL  =  300 , 
,  ,1  NJ  ,  VQL-l 
DISP  =  (  OLD, 
, LREC  L  =  300 , 
,  ,1  N)  *  VQc  =  ( 

TBK  0 
ABC  N 


I'.tCV')  ,'JNl  :  =3P0C-4  ,CSN*AOO  , 

3L  <  S  I Z  E  = SOC, CEN=2) , 

, RETAIN, S E®=L IF202 ) 

KEEP) , ONI T  =  AFF =FTC6F00  l ,DSN=AOO, 
°LKS  IZ  E=800 , OEN=  2 ) , 

»SETAiN,FE5 =119202) 

KEEP)  ,'JNI  T=AFF=FTC6F  CO  1,0  SN=AOO, 
0LKS I Ze=3G0  ,  C  EN  =  2  ) , 

, RETAIN, SER=lie202) 


F PC  E 
ABI  0 


PBI  F 
CH8  P 


SYC  G 
RPR  C 


SYI  H 
RPT  R 


3 

537  -176  614 


SYE  I 
PAT  S 


L  ~c  J 
REV  T 


n:s  is  :-rsT 


SVILITT 

-}  ,  'v  DDC 
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th- 

TP- 


«s» 

X 


I 


I 


//* 

//*  GETSORT 
//* 

//*  THIS  PPOGRAM  is  FIR  USE  IN  THE  FACP'JB  SYSTEM 
//*  IT  IS  FOR  FILES  THAT  HAVE  BEEN  ocO CEASED  eY  LIBTAPE 
//*  IT  IS  THE  PRIMARY  MEANS  GF  EXTRACTING  RECORDS  FRCM  THE  MASTER  TAPE 
//* 

//*  THIS  PROGRAM  WILL  READ  the  CONTENTS  OF  ThE  SPECIFIED  FILE? 

/ /*  IT  WILL  THEM  SORT  TriE  RECORDS  AS  INDICATED  CN  ThE  LAST  CARO 
//*  THE  SORTED  RECORDS  W  ILL  THEN  BE  WRITTEN  ON  A  NEW  TAPE 
//*  THE  LIST  PROGRAM  SHOULC  BE  USEO  TQ  PRINT  THE  NEW  FILE 
//* 

//S  ORT  E  v  EXEC  PGM=IERRCOOO, REGION* 150K 
//SORTPR  DD  $YSCUT=A 

//SORTL  IS  OD  QSN*SYSl  .S3RTLIB,DI  SP*SHP 
//SCRTWKOl  DC  UNIT=SYSCA,SP  JCE=(CYL,  I  15  ),  , CONTI  G) 

//S0RTWK02  DD  LNI 7= SY SO  A  ,  S P A CE  = ( CY L  ,  (  15 ) , , C CNT I G ) 

//SOPTWK33  DO  UN  I7*SY SDA, SPACE*! C YL , (  15) , , CONTI G) 

//SQRTWKO^  DD  UM7»SYSDA,SFACE»(CYLt(I5ItfC0NTIG) 

//SDPTWK05  DD  UNI T* S Y SD A, S PACE* ! C YL  , !  15  )  ,  ,C CNT I G ) 

//SCRTWKOS  CD  UMIT=SYSCAf  SPACE*!  CYL,(  15  )f  .CCNTIGJ 
//SORTIN  DD  DISP*<  CLD.KEEPJ  »UNIT=3A0vD-4,CSN=DUM» 

//  DC  3= (RECFM  =  F8f  LR  ECL*  800»3LKSIZE=80Q»D5N=2)  , 

//  LABEL* (11 ,NL,  ,INJ,VDL  =  ! ,RETAIN,S  E9  =  LI3202) 

//  DD  DISP*(  OLD,  KEEP)  ,UNI T *  AFF  =  SORT  I N,  CS  N=  CUM  , 

//  CCB*  ('5ECFM  =  FP,LPECL=80D,3LKSI2E=300,CEN=2)  , 

//  LABEL*!  12  ,NL,  ,IN)  ,V3L=!  ,  R  ET  AI N,  S  ER*  L  I  B202  ) 

//  DO  01 SP*( OLD, KEEP)  ,UMIT  =  AFF*?ORTINtCSN*CUM  , 

//  CCB*  (RECFM  =  F3»  L°ECL=BGQ,  3LKS  HE*  800,  CEM*2)  , 

//  LAB  E  L=<  1 3  ,  N  L ,  ,1  Nj  ,  V  CL*  (  ,  R  ET  AIN,  S  EP  *L  I  B202  ) 

//S0PTOUT  DD  DI3?  =  (NEW, KEEP) ,LNIT*(34C0-4,, DEFER)  ,DS  N  *S  CRTED , 

//  CCB* ( RECFM=FB, LR  ECL*  300 , BLKS  IL E=800 , CEN*  2  ) , 

//  LABEL*! I ,BLP) ,VOL*SER*LI 3999 
//SYS  IN  DD  * 

SCRT  FIELDS  =  !4,1,3I»A»1»3 ,31, A, 737,64,81, A, 10, 3, 3  I , A ) , S I2E*E3CC0 


//  EXEC  FQRTCLG  ,REG  ION.  G0= 16CK 
//FCRT.SY5 IN  CC  * 

C 

C  BOOK 

C 

C 

C  THIS  PROGRAM  BOOK  IS  USEC  TC  PRINT  Tt-E  VCLUMN  ENTITLED 
C  "RECENT  *"PS  PUBLICATIONS".  IT  REQUIRES  AN  INPUT  TAPE  CCNT  AIN  ING  THE 
C  RECORDS  S  C!RT  EC  INTO  4  GROU°S 
C  A  CONTRIBUTIONS  TO  BOCKS 

C  B  JOURNAL  PUBLICATIONS  AND  CONFERENCE  PROCEEDINGS 

C  C  CONFERENCE  PRES  ENT  AT  I  CNS 

C  D  TECHNICAL  REPORTS 

C  THE  INPUT  TAPE  IS  CONSTRUCTED  USING  THE  PROGRAM  GETBOCK 
C 

C  THIS  PROGRAM  WILL  PRINT  A  RECORD  ONLY  IF  THE  PRINT  CCDE  IS  I  CR  2. 

C  THUS  IT  WILL  SUPPRESS  DUPLICATES  WITHIN  A  DEPARTMENT 
C 

C  IF  THE  DEPARTMENT  CODE  ON  A  RECORD  IS  NOT  CNE  OF  THE  ACADEMIC  DEPT 
C  COOES,  THE  PAGE  HEADING  PRINTED  FOR  THAT  RECORD  WILL  CONTAIN  A  BLANK 
C  DEPT  OF  .... 

C 

C  SETUP... 

C  JOE,  DECK,  END 

C  JCL  SPECIFYING  INPUT  FILE 

C  DATA.  PAGE  HEADER  FOR  GROUP  1 

C  DATA.  PAGE  HEADER  FOR  GROU®  2 

C  DATA.  PAGE  HEADER  FOR  GRC'JP  3 

C  DATA.  PAGE  HEADER  FOR  GROUP  4 

C  DATA.  ENC  OF  PUB  COOES 

C  DATA.  ALL 


DIMENSION  iLPH6J 

OATA  8LK/  '  '  /,  UC  /'  L*  / 

DIMENSION  °CO  DE ( 23 ) 

REAL  *  4  ENDC  /'  END'  / 

REAL  *  4  HEADK7)  /'NAVA',  'L  PC',  »STGR‘,  •  ADUA'  ,  *  TE  S', 

I  ’ CHOO' ,  ' L  • / 

REAL  *  4HEAD2I5J  /ZD49695A3,  Z659985A8,  Z6E40C381,  Z93898696, 

1  Z9995  898 1  / 

REAL  *  8  CCNT  /  Z4  0839  69  5  A37D845  C  / 

REAL  *  4  HE  AD  3(  4)  /  'OEPA',  '  R  TME '  ,  'NT  C'  ,  'F  '/ 

REAL  *  4  DC  ODE  (  ID  /•  52  ',  •  53  •  54  •,  »  55  ',  •  56 

I  •  61  '  62  '  ,  '  63  •  ,  '  67  '  ,  '  68  • ,  •  69  •/ 

DIMENSION  DEPT<  7,  12) 

REAL  *  4  C5  2  ( 7  )  / '  COM  P  *  ,  •  UT  ER  •  ,  •  SC  I  • ,  'E  NCE  •  ,  • 

1  ’  •  / 

REAL  *  4  C53(  7)  /  ’  MA  TH '  ,  ’  E  MA  T  »  ,  ’  I C  S  »  ,'  », 

I  '  •  / 

REAL  *  4  C  54(  7)  /'  A  DMI '  ,•  NIST’  ,  '  R  ATI '  , '  VE  S  •  ,  '  C  I  EN'  ,  •  CES 

l  '  '  / 

REAL  *  4  05  5(7)  / • OPER'  , • AT  10' , • NS  P» , ' ES EA • ,  • RCH  », 

1  •  •/ 

REAL  *  4  C56 ( 7 )  /  'NAT  I  • ,  'ON AL  •  ,  ’  SEC  '  , • LR I T • , • Y  AF '  ,  'F A  I R '  , 

1  'S  •  / 

REAL  *  4  C  6  If  7 )  /'PHYS*,MCS  '  ,  *  A  ND  •  CHE  ,  ’  I  STR*  ,»  Y  ', 

I  '  •  / 

REAL*  4  C  62  (  7)  /'  ELEC  •  ,  •  TRIC  •  ,  •  A  L  E*  ,'  NG I  K«  ,  •  EE  RI  •  ,  *NG  ', 

I  '  V 

REAL  C63(7)  /*  METE*  ,  •  CRCL  • ,  »OGY  •» 

1  •  •/ 

REAL  *  4  C6  7  (7  )  /  •  A  ERO  • ,  'N  AUT  • ,  '  I C  S  *»•  '» 

1  ’  •/ 

REAL  *  4  C6817)  /  'OCEA  •  ,  »NOGR  •  ,  •  A  FH  Y*  ,  •  »,*  ' 

I  •  •  / 

REAL  *  4  C6  9(  7)  /•  MEC  h'  A  NI C  •  ,  •  A  L  E‘ ,  '  NGI N  • ,  '  E  ER  I  •  ,  •  NG 

1  •  •/ 

REAL  *  4  CBLK<7 )  /•  •*  »  »,*  't*  '» 

1  •  V 

EQUIVALENCE  (  DEPT  (  l,  1  ),  C  5  2(  U  )  ,  (  CEpT(  1 , 2  )  ,C  5  3  (  II)  , 

I  (DEPTH  ,3)  ,C54(II  )  ,  (CfcPT  ( 1 , 4  )  ,  C55  (1)  ),  (OEOT(1»5)*C56(  D), 

1  (DEPT«  I,  6)  ,C6L<  I)  )  ,  (DEPTI  I  ,7)  .C62(  1))  t  ( DE  PT  ( 1  . 8  )  ,  C63  ( L )  )  , 

l  (DEPT  (1,9),  C67  U  )  ),  (  CE°T  (  l  ,  10  J ,  C  68(  I )  ) ,  (  DE  PT(  1 ,  1 1)  ,C  t  S(  1 I  )  , 


tr  -r-.T  sriiiTT 


on 


1  (DEPT< 1 *12) ,CBLK ( 1 ) ) 

REAL  *  8  P'J8  (  4  »23  J 
DIMENSION  NIP(20) 

INTEGER  *  2  I  ALP  2(30,3),  IALP3(24C),  IALP4<243) 

I P  L(  60  J 

I BLK  /•  */,  ISCO  /•:•/,  ISTAR  /•*•/, 

IWCA 


INTEGER  *  2 
INTEGER  *  2 
INTEGER  *  2 
DATA  A3/ ' B 
DATA  AE/'E 
DATA  A  M  /  *  M 
DATA  A  J/ 1 J 
DATA  Pl/*1 

LMX  =  60 


*/,AC/'C 

•  /, AF / ' F 

*  /  »  AN/  '  N 
• /, AC/*  Q 
* /» P2/ ' 2 


•/ ,A0/ *0 
'  /  ,  AG/ *  G 
•  / t  AK / *  K 
•/ 

» /,P4/*4 


'/  »  AO/ ' 0  •/ 
* / »  AH/ ' H  •/ 
•  /  » AL  /  *  L  •/ 


• / , P  5/ ' 5 


•/ 


LAU  =  30 
LMT  =  56 
LTI  =  240 
LMS  =  53 
LSO  =  243 
LEND  =  7 
LENP  *  4 
POK  =  0. 

IDE  =  11 
IAL  =  5 
LICR  =  10 
UMAX  =  56 
LINE  =  75 
CPUB  =  BLK 
CDEPT  =  BLK 
IP  *  4 
IC  a  0 
IA  =  7 
NFC  =99999 
ViRITE  ( 6, IC2 ) 

102  FORMAT (  •  1  LIST  OF  PUB  CODES  S  HEADERS*  //) 

I  =  0 

ICC  I  =  I  ♦  1 

READ( 5*101)  PCOOE(I),  (PUB(J.I),  J=1,IP) 

101  FORMAT ( A3  »  2X,  4A8) 

IF  (  PCOOEm  .EO.  ENOC )  GO  TO  105 
WRITEt6» 103)  I,  PCOOE(I),  (PUB(J.I),  J=1,!P) 

1C3  FORMAT ( 7X »  12,  2X,  A4,  4A8 ) 

GO  TO  100 
105  CONTINUE 

IAL  »  I  -  1 
READ( 5 , 1 )  UU 
1  FORMAT(Al) 

I  CL ASS  =  2 

IF  (UU  .EO.  UC)  I  CLASS*  l 
10  CONTINUE 

READ( 8,4,END=80)  ALP1,  NA,  I ALP2 ,  I AL  P3  ,  *ALP4 
IF( AL»1 ( 3 )  .EQ.P4.0R.ALP1 (3i . E0.P5)  CO  TO  777 
IF(AL01(3).SG.P1.SR.ALP1(3).EQ.P2)  GO  tq  777 
GO  TO  10 
777  CONTINUE 

IF  (ICLASS  .EO.  2)  GO  TO  106 
IF  ( AL  P 1 ( 5  )  .NE.  UC)  GO  TO  10 
1C 6  CONTINUE 

4  FORMAT (A3,A1,A1,A3,A1,A3,  II,  240A1,  240A1,  243A1) 
IC  =  I C  ♦  1 

IF  (ALP1(2)  .EC.  C  PUB )  GO  TO  6 
NE  PUB-COCS 

CPU*  =  ALP1(2) 

00  13  I  »  1 , 1  AL 

IF  (CPUS  .NE.  PCODE(I))  GO  TO  13 
POK  =  1. 

IPPU  =  ! 

GO  TO  7 
13  CONTINUE 
POK  =  0. 


6  C 


GC  TO  10 
CONTI 


’I  NUE 
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IF  ( D0K  .  EQ .  0. 1  GO  TO  1C 
IF  (ALPK1J  .EQ.  COEPT)  GO  TO  5 

7  CONTINUE 
INPUR  =  0 
CCEPT  =  ALPi(l) 

DO  8  I  *  1 ♦ IOE 

IF  (COEPT  .NE.  DCODE(I))  GO  TO  8 
I  POE  =  I 
GO  TO  7 C 

8  CONTINUE 

I  POE  =  IOE  +  1 
GO  TO  7 C 
5  CONTINUE 

IF  (  (  LI  NE+LICR)  .GT.  L^AX)  GO  T0  70 
2  CONTINUE 

9  CONTINUE 
WRITE  (  6 , 1 1 J 

11  FORMAT (■  •) 

LINE  =  LINE  +  1 
I8L  =  1 
LC  =  1 

DC  30  I  =  1  ,NA 

IF  (  IBL  .LT.  11  GO  TO  16 

DC  15  16  =  LCtLMX 

15  I PL( I  61  =  IBLK 
IBL  =  0 

16  CONTINUE 

OC  20  II  =  1 1 LAU 

IF  (IALP2(  I  I,  II  .EQ.  I  BLK  .AND.  I ALP2( I  I  *  1 , 1 )  .EC.  IBLK1  GC  TC  18 
GO  TO  20 
18  CONTINUE 

I  &L P  2  (  I X *  I  )  -  I  SCO 
I CH=  II  +  1 

LCT  =  LC  +  ICH  -  1 

IF  ( LCT  .GT  .  LNX1  GO  TO  26 

GC  TO  21 

20  CONTINUE 

21  11=0 

DC  24  J  =  LC ,  LCT 
11=  II  +  1 
IPL(  J  1  =  IALP21  11,11 
24  CONTINUE 

LC  =  LCT  +  1 
GC  to  30 

26  CONTI  NUE 
WRITE(  6,27)  I  PL 

27  FORMAT ( 15X,  60A1) 

LINE  =  LINE  ♦  1 
IBL  =  1 

LC  =  1 
LCT  =  ICH 
GO  TO  21  . 

30  CONT  I  MU  E 

IF  (IBL  .LT.  1)  GO  TO  32  y 

DO  31  IB  =  LC,  LMX  'y 

31  IFL(IB)  =  I BLK 

32  C  CNTI  NL'E 

IPULC-2)  =  I3LK  ,  # 

W  RITE  <6, 27)  I  PL 
LINE  *  LINE  +  l 

IFN  =  0  •-  ,  jV" 

u  =  o 

J  =  1  3* 

LC  =  0 
ICH  =  0 
24  CONTINUE 

II  =  II  +  1 
LC  =  LC  ♦  l 
ICH  =  ICH  ♦  1 

IF  (  IA LP3(  II  1  .NE  .  IBLK)  GO  TO  26 
IF  (LC  .EQ.  1)  J  =  J  ♦  1 
ICH  =  0 

IF  (  I  A  L  P  3  (  1 1  +1 )  .NE.  IBLK)  GO  TO  36 
IF  (lALF3(II+2)  .NE.  IELK)  GO  T0  26 
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36 


38 

33 


39 

40 


44 


45 


46 

47 


48 

50 


49 

52 

54 

60 

61 


IFN  =  1 
GO  TO  38 
CCNT  I  MU  E 

IF  (  LC  .GT.  LMTJ  GO  TO  33 

IF  (I  I  .IT.  LTI )  GO  TO  34 

I  FN=L 

GC  TO  33 

CONT  IN  U E 

11=  II  -  ICH 

C  CNTI  NUE 

WRITE!  6»  29)  (IALP3IK),  K  =  J,II) 

LINE  =  LIME  +  I 
IF  (IFN  .GT.  0)  GO  TO  40 
ICH  =  0 
J  =  II  +1 
LC  =  0 

IF  <  I  I  .LT.  LTI  )  GO  TO  24 
FCRMAT  (18X  ,  57A1) 

CONTINUE 
IFN  =  0 
LWS  =  L^S 
11=0 
IS  =  0 
J  =  I 

iwda  =  INOA 
LC  =  0 
ICH  =  0 
CONTINUE 
11=  II  +1 
LC  =  LC  +  1 
ICH  =  ICH  +  1 

IF  (  I A  LP4(  I  I  )  .NE.  I8LK)  GO  TO  46 

IF  {  LC  .GT.  IT  GO  TO  45 

J  =  J  +  1 

LC  =  0 

CCNTI  NUE 

ICH  =  0 

IF  (IALF4UI  +  1)  .NE.  IBLK  )  GO  TO  47 
IF  *  I  A  L  F4  (  I  I  +2  )  .NE.  I  6  LK )  GO  TC  47 
I  FM  =  1 
GC  TO  48 
CONTINUE 

IF  (  I AL  P4(  II)  . EQ .  ISTAR)  GO  TO  52 
CONTINUE 

IF  (LC  .GT.  LWS)  GO  TC  48 
IF  ( II  .LT.  LSO )  GO  TO  44 
I  FN=L 
GO  TO  50 
CONTINUE 
I  I  =  I  I  -  I  CH 
CONTINUE 
IF  (IS  .GT. 

WRITE! 6,49) 

ICH  =  0 
J  =  II  +1 
LC  =  0 

LINE  =  LINE  ♦  l 
IF  (IS  .GT.  0)  GO  TO  54 
IF  (IFN  .G'*.  0)  SO  TO  10 
IF  (II  .LT  .  LSO  )  GO  TO  44 
F  CRMAT (21X  T  54A1) 

GO  TO  10 
IS  =  1 
ICH  =  0 
11=  II  -  l 

IF  (LC  .GT.  1)  GO  TO  48 

IS  =  2 

J  =  J  +  1 

LWS  =  47 

I  I  =  I  I  ♦  L 

GO  TO  44 

CCNT  1NU  e 

WRITE(6t61)  I  WO  A »  (IALP4IK),  K  =  J,1I) 


1)  GO  TO  60 
(  I  A  LP4 (  K)  «  K  =  J  »  1 1  ) 


FORM AT  (  24X»  A2,  1*,  4EA1) 
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LINE  =  LINE  +  L 

IF  ( IFN  .GT  .  0)  TO  10 

I  kOA  =  IBLK 

ICH  =  0 

J  =  II  +1 

LC  =  0 

IF  (II  .LT  .  LSO  )  GO  TO  44 
GC  TO  10 

70  CONTINUE 
L  JNE  =  0 
WRITE(6  ,71  ) 

71  FORMAT!  ’l'/'O’/'O') 

WPITE(6,72)  HEAD1 

72  FCRMAT  (33X,  7A4) 

WRITE ( 6,73)  HEA02 

73  FORMAT  (35X,  5  A4  ) 

WRITE ( 6  »  74)  HEA03,  1 DEP T ( I , I PDE )  ,  1= 1 , LE NO ) 

74  FORMAT! //30X,  3A4,A 2,  7A 4 ) 

IF  (INPUe  .LT.  U  GO  TC  77 

WRITE  (  6 , 75  I  (  PU8(  I  ,IPPU)  ,I=1,LENF)  ,  CONT 
WR  IT  E(6,li) 

75  FORMAT!/  30X,  4A3  ,  IX,  A3) 

GO  TO  2 

77  CONTINUE 

WRI TE ( 6 ,75)  ( PUB ( I ,IPPU)  ,  I=1,LENF) 

WRITE! 6,  11) 

I  N  P J  B  =  1 
GC  TO  2 
80  CONTINUE 
W  P  IT  E (6 ,71  ) 

STOP 

END 

//GC.FTC3F001  DO  CISP=(3LD»KEEP)»UNIT=340  0-4,  DSN=  ADC , 
//  DCB=(RECFM=FB  ,  LRECL=800,8LXSI  ZE=800  ,CEN=2) , 

//  LA  eEL=  !  1 ,  NL ,  ,  IN)  ,VOL  =  <  , RETAIN,  SE R=LI BS S9 J 
//GO. SY S I N  OD  * 

A  CONTRIBUTIONS  TO  BOOKS 

B  JOURNAL  FUBS  £  CONFERENCE  oROCS 

C  CONFERENCE  PRESENTATIONS 

D  TECHNICAL  REPORTS  AND  NOTES 

END  OF  PUB  COCES 
ALL 
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//  EXEC  FORTCLG 
//FORT. SYS  IN  00  * 
C 

GETROOK 


C 

c 


THIS  PROGRAM  GETSOOK  IS  USED  TO  PREPARE  A  TAPE  FROM  WHICH  THE  BOOK 
"RECENT  NPS  PUBLICATIONS "  CAN  BE  PS  I  AT  ED.  THE  PRINTINO  IS  OONE  WITH 
THE  PROG0  AM  CALLED  ROOK 

THIS  PROGRAM  WILL  EXTRACT  PECOROS  eY  PUB  CCOE  FRO**  THE  FILES  SPECIFIED, 
GROUP  THE"  AS  INSTRUCTED  IN  'HE  DATA,  'CRT  THEM  ('EE  LAST  CARO), 

AND  WRITE  ThEM  ON  A  NEW  TAPE  READY  FCR  PRINTING  BY  BOOK. 

SETU  F 

joe,  DECK,  END 

JCL  SPECIFYING  INPUT  FILES... 

THREE  CARCS  SHEWING  A  U;!°  B  3K-  . 

DATA  CARO  SHOWING  NUMBER  CF  GROUPS 

DATA  CARD  SHOWING  NUMBER  OF  PUB  COCES  IN  FIRST  GRCUP 
DATA  CARC  'HOMING  »J  3  COCES  IM  FIRST  GROUP 
REPEAT  LAST  TWO  CARDS  FCR  REMAINING  G0C'JPS.... 

15  JCL  CARDS  RELATED  TO  SORTING  AND  WRITING  the  OUTPUT  TAPE 
THE  OUTPUT  “APE  ANC  FILE  NUMBER  ARE  SPECIFIED  on  CARD  14 
THE  FINAL  CARD  SPECIFIES  HOW  the  FILES  ARE  TC  BE  SCRTED 

DIMENSION  SELEI20  ,10 J  ,  ISV(LO) 

DIMENSION  ALL( 199) ,  A lPha(2,22),  S6LECT(22I 

REAL  R  AN ( 10 )  / • A* , »3‘,  *C  •,  •&•,  •£• ,*F *, *G  1  ,  »H*  ,  'I », • J* / 

I G  MX  =  10 
1 SMX  =  20 
I  N  *  0 
IC  *  0 
I AL  *  22 
REA0(5 , 1 )  AL°HA 

1  FORMAT} 10( IX,  Al,  3X ,  A3)) 

R  EAD(  5,2)  IGRP 

IF  (IGRP  .LE.  I GMX )  GC  TC  14 
WRITE!  6,57)  IGMX,  IG.RP 

57  FORMAT (  '  1  ERROR  *  OF  GROUPS  6XCEE0S  MAX  OF  •,  16, 
l  •  VALUE  IS  ' ,  16) 

STOP 

14  CONTINUE 

DC  20  K  *  1  ,1  GRP 
READ!  5,  2)  IS 

2  F  CRM  AT  (  14) 

I  SV(K)  =  I  S 

IF  (  IS  .LE.  I  SMX )  GO  TO  15 
WFITE(6  ,53  )  RAN(K),  ISVX,  IS 

58  FORMAT!  *1  ERROR  *  IN  GROUP  ',  Al  ,  •  EXCEEDS  MAX  CF  16, 

1  •  VALUE  IS  16) 

STOP 

15  CONTINUE 

R  E  AD!  5,3)  (  SELECT  II),  1*1,  IS) 

3  F CRMAT( 20 A4 ) 

WR  ITE ( 6,59)  RAN ( K) ,  ( S EL ECT ( J )  ,  J* l ,  I  $ ) 

59  FCR-iat  (/// .  Rj  3  CODES  IN  GROUP  ',  Al,  •  ARE:  ' 

DC  4  I  *  1 ,IS 
SA  =  SELECT  II) 

DC  5  J  *  1,  IAL 

IF  (Si  .NE.  ALPHA ( 2 , J ) )  50  TO  5 

6  CONTINUE 

SELE!  I ,  K 1  *  AL  PHA  ( 1 ,  J  ) 

GO  TO  4 
5  CONTINUE 

WFITEC6,7)  SA 

7  FORMAT!  '1  ERROR  IN  I  NPLT  PUB  CODE  •  ,  A4 ) 

STO= 

4  CENT  1 VU E 
20  CONTINUE 

9  Cr,NT  IN'JE 

REAO! B , 10, £  NO *50)  AA,  ACJ9,  ALL 
IF  ( IN  .31.  50)  GO  TO  ICl 
W  R  IT  E  ( 6 , 56  )  AA,  APUB,  !ALL(I),  1*1, 20 


/  (  2  X  ,  2CA5)  ) 


.wV 


sr 


-  >■ v 
“  -.  A  ^ 
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101  CCNT  INUE 

56  FORMAL  (IX,  A4,  A 2,  2  0A4) 

IN  *  IN  «■  1 
DC  13  K  3  l,IGRP 
I  S  3  I  S  WK) 

oi  e  i  *  it  is 

IF  (APue  .60.  SELE!I,K)1  G3  TO  12 
8  CONTINUE 
GO  TO  13 

12  CONTINUE 

A P UR  =  RANI  K) 

WR  IT  E  !  9 , 10  )  AA,  A“UB,  ALL 
IC  3  IC  «■  1 
GO  TO  9 

13  CONTINUE 
GC  TO  9 

10  FORMAT  (  A3, A  1,  19  94  4) 

50  WRITE  (6, 51)  IN,  IC 

51  F  CRMAT ( ' 1  END  OF  RUNS  RECORDS  IN  16,  •  AND  CUT  »,  16) 
STOP 

END 

//GO. FT  C8F  001  00  01  SP=  I  CLC  , K E  EP )  ,'JN  IT*3 400-4 ,  CSN*OUM , 

//  DC8=<PECFM=Fa,LRECL=e00,3LKSI25  =  800,DEN  =  2)  , 

//  LABEL3 ! 1 1 »  NL»  *  IN) , VOL3 ! *R  ET  A  IN,  S  ER  =  L IB202 ) 

//  00  01 SP=( OlO.KEEP) ,UNIT=AFF=FTO8FOOl,0SN*OUM, 

//  OCB= (RECFV  =  FB,LR  ECL3300*3LKSIZ£= 800,0£N=2)  , 

//  LABEL3! 12  ,NL,  ,IN) ,VOL=( , RET  AIM, S  ER  =  LIB202  ) 

//  00  OISP=(OLO, KEEP) , UNI T=AF?=Fr08F001,CSN=OUMf 

//  CCB=  I  REC F  M*F  8*  LPECL3  800,  5LK.  S  12  E=  900 ,  CEN=2  )  , 

//  LAB  EL3!  1  3  ,NL,  ,IN)  ,7  3L=(  ,  R  ET  A I N,  S  ER -L  I  5202  ) 

/ / GO . FT  C9F  001  00  UNI  T=SYS04  ,$P4CS3ICYL, (10,1)  )  ,OSN=TC.SCPT, 

//  DCB=tRECFM3F8, LRECl  =300, 9LKS 125=800  ),DISP=<  MEW, PASS, DELETE) 

A  UNP  B  BK-  C  T3k  3  PRC  E  PRI  F  SYC  G  SY I  I-  SY5  I 

K  PP-  L  PI-  M  ABC  N  ABI  0  CHB  P  RPR  0  RPT  R  PAT  S 

U  THE  V  MIS 


4 

4 

BK-  T BK  CHB  SYE 
6 

PP-  FI-  SYC  SY I  t EC  ABI 
2 

PRC  PRI 
2 

RPT  TN- 

//SORTEM  EXEC  o  GM= I ERRCOOO , REGI ON3  150K 
//SORTPR  DO  SYS  CUT  =A 

//S0RTLI9  00  OSN=SYSl.SORTLIB,OISP3SHR 
//SCRTWKOl  DO  UNIT  =  SYSOA, SPACE3 (CYL,(  15),, CON  TIG) 

//S0RTWK02  00  UNI73$YS0d,SFACE=!CYL, ( 15 ),,CCNTIG) 

//S^RTWK03  00  UNIT=SYSJA, SPACS=(CYL,( 15) , .CCNTIG) 

//SCRTWK04  OD  U*!IT=SYSOA,SPAC=3(CYL,(  15  l,,CCNTIG) 

//S0RTWK05  00  LN1T=SYS0A,SPACE3(CYL,(  15),,CCNTIG) 

//S0RTWK06  DO  UN  I  T3  SY  SO  1 ,  SP  ACE  =(  C  YL  ,  I  15)  ,  ,C  ONTI  G) 

//SORTIN  00  UNIT aSYSOA, CSN»TC. SORT, D1SP3(CL0, CELET6, DELETE), 

//  OCP3(RE:fm=FR , LR5 CL =800.3 LK SI  ZE=800 ) , LAB  EL  3 ( ,  ,, IN) 

//SQRT0IJ7  DO  0  IS  P=  I  NEW,  \  EE°  )  ,  UN  IT*  (  3400-  4  ,  ,  DEFER  >  ,0  SN*  'OR  TED  , 

//  0CB3(RECrM*FB,LRtCL3800,3LKSIZE3o00, CEN-2) , 

//  LABEL3!  l,9L°) , VOL =SER =LI B S 99 
//SYS i N  00  3 

SORT  FIEL3S»<4,l,ai  ,A,1  ,3  ♦  e  I  ,  A  ,  73  7  ,64  ,B  I ,  A ,  1 0 , 3  ,  B  I ,  A ) ,  S  I Z  E3  E3000 


LTR  J  TN 
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